Fix codegen test

db4
Slava Pestov 2009-07-14 16:11:14 -05:00
parent 2f39e851f8
commit 03cd550b93
1 changed files with 3 additions and 1 deletions

View File

@ -316,4 +316,6 @@ M: cucumber equal? "The cucumber has no equal" throw ;
[ t ] [ 2 [ 1 swap fixnum< ] compile-call ] unit-test
[ 3 ] [ 2 [ 1 swap fixnum< [ 3 ] [ 4 ] if ] compile-call ] unit-test
[ 0 ] [ 101 [ dup fixnum-fast 1 fixnum+fast 20 fixnum-shift-fast 20 fixnum-shift-fast ] compile-call ] unit-test
cell 4 = [
[ 0 ] [ 101 [ dup fixnum-fast 1 fixnum+fast 20 fixnum-shift-fast 20 fixnum-shift-fast ] compile-call ] unit-test
] when