Simplify DEFER: definition

darcs
slava 2006-06-26 07:08:47 +00:00
parent b682d52a9d
commit 1eac2d1736
1 changed files with 1 additions and 1 deletions

View File

@ -48,7 +48,7 @@ SYMBOL: !t
: !SYMBOL: CREATE dup reset-generic define-symbol ; parsing
DEFER: !PRIMITIVE: parsing
: !DEFER: CREATE dup reset-generic drop ; parsing
: !DEFER: CREATE reset-generic ; parsing
: !: CREATE dup reset-generic [ define-compound ] f ; parsing
: !GENERIC: CREATE dup reset-word define-generic ; parsing
: !G: CREATE dup reset-word [ define-generic* ] f ; parsing