combinators: fix load error

release
Slava Pestov 2010-04-06 16:48:30 -04:00
parent e0196da1c8
commit 0d00160f4c
1 changed files with 1 additions and 0 deletions

View File

@ -26,6 +26,7 @@ ERROR: wrong-values quot call-site ;
! We can't USE: effects here so we forward reference slots instead
SLOT: in
SLOT: out
SLOT: terminated?
: call-effect ( quot effect -- )
! Don't use fancy combinators here, since this word always