fix bootstrap failure

cvs
Slava Pestov 2005-08-07 04:04:55 +00:00
parent 606b9b878f
commit 371d13d578
1 changed files with 2 additions and 12 deletions

View File

@ -1,4 +1,6 @@
IN: inference
USING: errors generic interpreter kernel kernel-internals lists
math math-internals parser sequences vectors words ;
! Primitive combinators
\ call [
@ -42,18 +44,6 @@ IN: inference
\ over [ \ over infer-shuffle ] "infer" set-word-prop
\ pick [ \ pick infer-shuffle ] "infer" set-word-prop
! Type conversion
{
{ >boolean boolean }
{ >list general-list }
{ >bignum bignum }
{ >fixnum fixnum }
{ >float float }
{ >sbuf sbuf }
{ >string string }
{ >vector vector }
} [ 2unseq "converter" set-word-prop ] each
! These hacks will go away soon
\ delegate [ [ object ] [ object ] ] "infer-effect" set-word-prop
\ no-method t "terminator" set-word-prop