diff options
Diffstat (limited to 'src/interp/lisp-backend.boot')
-rw-r--r-- | src/interp/lisp-backend.boot | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot index 89972184..17efec64 100644 --- a/src/interp/lisp-backend.boot +++ b/src/interp/lisp-backend.boot @@ -322,6 +322,9 @@ expandFatanh ['%fatanh,x] == expandFacoth ['%facoth,x] == ['C_-TO_-R,['ACOTH,expandToVMForm x]] +expandFdecode ['%fdecode,x] == + ['MULTIPLE_-VALUE_-CALL,['FUNCTION,'LIST], + ['INTEGER_-DECODE_-FLOAT,expandToVMForm x]] -- String operations @@ -655,6 +658,7 @@ for x in [ ['%idivide, :function expandIdivide], ['%i2f, :function expandI2f], + ['%fdecode, :function expandFdecode], ['%fbase, :function expandFbase], ['%feq, :function expandFeq], ['%fgt, :function expandFgt], |