 "." write flush
 
 {
-    hashcode* = get set
+    hashcode* = equal? assoc-stack (assoc-stack) get set
 } compile-unoptimized
 
 "." write flush

hashtables.private sequences.private math classes.tuple.private
growable namespaces.private assocs words command-line vocabs io
io.encodings.string libc splitting math.parser memory compiler.units
math.order compiler.tree.builder compiler.tree.optimizer
compiler.cfg.optimizer ;
FROM: compiler => enable-optimizer compile-word ;
IN: bootstrap.compiler

! Don't bring this in when deploying, since it will store a


"." write flush

vocabs [ words compile-unoptimized "." write flush ] each

" done" print flush
