dlists: fix compile error

Doug Coleman 2011-11-02 21:56:06 -07:00
parent 2c040c3ef6
commit 0b39b540e7
1 changed files with 1 additions and 1 deletions

View File

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