diff options
Diffstat (limited to 'src/interp/i-object.boot')
| -rw-r--r-- | src/interp/i-object.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/i-object.boot b/src/interp/i-object.boot index 5092745f..1d065fa4 100644 --- a/src/interp/i-object.boot +++ b/src/interp/i-object.boot @@ -93,10 +93,10 @@ wrap x == isWrapped x => x ["WRAPPED",:x] -isWrapped x == x is ['WRAPPED,:.] or NUMBERP x or FLOATP x or string? x +isWrapped x == x is ['WRAPPED,:.] or integer? x or FLOATP x or string? x unwrap x == - NUMBERP x or FLOATP x or string? x => x + integer? x or FLOATP x or string? x => x x is ["WRAPPED",:y] => y x @@ -131,7 +131,7 @@ instantiationNormalForm(op,argl) == -- addQuote x == --- NUMBERP x => x +-- integer? x => x -- ['QUOTE,x] --% Library compiler structures needed by the interpreter |