From 303beabd731556a15a88141af6e84808c8ed425f Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Mon, 17 Dec 2012 18:46:59 +0000 Subject: [PATCH] MOD, FLOOR --- lispstrack.lisp | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lispstrack.lisp b/lispstrack.lisp index 969567f..7bb6945 100644 --- a/lispstrack.lisp +++ b/lispstrack.lisp @@ -385,6 +385,12 @@ (define-compilation = (x y) (concat "((" (ls-compile x env fenv) ") == (" (ls-compile y env fenv) "))")) +(define-compilation mod (x y) + (concat "((" (ls-compile x env fenv) ") % (" (ls-compile y env fenv) "))")) + +(define-compilation floor (x) + (concat "(Math.floor(" (ls-compile x env fenv) "))")) + (define-compilation null (x) (concat "(" (ls-compile x env fenv) "== undefined)")) -- 1.7.10.4