Tweak the dlist equal? word.
parent
e57b8e5e4a
commit
e6bde7c6aa
|
@ -49,7 +49,7 @@ M: dlist equal?
|
|||
[ front>> ] bi@
|
||||
[ 2dup dlist-nodes= ]
|
||||
[ [ next>> ] bi@ ] while
|
||||
2array { f f } =
|
||||
2array or not
|
||||
] [
|
||||
2drop f
|
||||
] if ;
|
||||
|
|
Loading…
Reference in New Issue