Tweak the dlist equal? word.

db4
Doug Coleman 2011-11-02 19:53:40 -07:00
parent e57b8e5e4a
commit e6bde7c6aa
1 changed files with 1 additions and 1 deletions

View File

@ -49,7 +49,7 @@ M: dlist equal?
[ front>> ] bi@
[ 2dup dlist-nodes= ]
[ [ next>> ] bi@ ] while
2array { f f } =
2array or not
] [
2drop f
] if ;