Clean up erg's change

db4
Slava Pestov 2008-03-11 03:36:33 -05:00
parent a463e6d9fb
commit dfacba5f3b
1 changed files with 1 additions and 1 deletions

View File

@ -240,7 +240,7 @@ PREDICATE: unexpected unexpected-eof
: CREATE ( -- word ) scan create-in ; : CREATE ( -- word ) scan create-in ;
: create-class-in ( word vocab -- word ) : create-class-in ( word -- word )
in get create in get create
dup save-class-location dup save-class-location
dup predicate-word dup set-word save-location ; dup predicate-word dup set-word save-location ;