aboutsummaryrefslogtreecommitdiff
path: root/src/interp/lisp-backend.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/lisp-backend.boot')
-rw-r--r--src/interp/lisp-backend.boot4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot
index 3232f9fe..895f6134 100644
--- a/src/interp/lisp-backend.boot
+++ b/src/interp/lisp-backend.boot
@@ -276,6 +276,9 @@ expandIlt ['%ilt,x,y] ==
expandIgt ['%igt,x,y] ==
expandIlt ['%ilt,y,x]
+expandIbigrandom ['%ibigrandom] ==
+ ['RANDOM,['GET_-INTERNAL_-REAL_-TIME]]
+
-- Floating point support
expandFbase ['%fbase] ==
@@ -689,6 +692,7 @@ for x in [
['%ilt, :function expandIlt],
['%ineg, :function expandIneg],
['%idivide, :function expandIdivide],
+ ['%ibigrandom, :function expandIbigrandom],
['%i2f, :function expandI2f],
['%fdecode, :function expandFdecode],