Fix typos in declarations

darcs
slava 2006-06-04 21:18:07 +00:00
parent 5029ca593f
commit ef1b07adb1
2 changed files with 4 additions and 2 deletions

View File

@ -149,7 +149,7 @@ sequences strings vectors words prettyprint ;
\ fixnum/i t "flushable" set-word-prop \ fixnum/i t "flushable" set-word-prop
\ fixnum/i t "foldable" set-word-prop \ fixnum/i t "foldable" set-word-prop
\ fixnum/f [ [ fixnum fixnum ] [ integer ] ] "infer-effect" set-word-prop \ fixnum/f [ [ fixnum fixnum ] [ float ] ] "infer-effect" set-word-prop
\ fixnum/f t "flushable" set-word-prop \ fixnum/f t "flushable" set-word-prop
\ fixnum/f t "foldable" set-word-prop \ fixnum/f t "foldable" set-word-prop
@ -201,7 +201,7 @@ sequences strings vectors words prettyprint ;
\ bignum/i t "flushable" set-word-prop \ bignum/i t "flushable" set-word-prop
\ bignum/i t "foldable" set-word-prop \ bignum/i t "foldable" set-word-prop
\ bignum/f [ [ bignum bignum ] [ bignum ] ] "infer-effect" set-word-prop \ bignum/f [ [ bignum bignum ] [ float ] ] "infer-effect" set-word-prop
\ bignum/f t "flushable" set-word-prop \ bignum/f t "flushable" set-word-prop
\ bignum/f t "foldable" set-word-prop \ bignum/f t "foldable" set-word-prop

View File

@ -123,3 +123,5 @@ unit-test
] collect 2nip ] collect 2nip
] compile-1 first ] compile-1 first
] unit-test ] unit-test
[ 3.5 ] [ 1 >bignum 2 >bignum [ bignum/f 3 + ] compile-1 ] unit-test