projects
/
jscl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Funcall
[jscl.git]
/
lispstrack.lisp
diff --git
a/lispstrack.lisp
b/lispstrack.lisp
index
9395aec
..
8a78bf5
100644
(file)
--- a/
lispstrack.lisp
+++ b/
lispstrack.lisp
@@
-386,8
+386,6
@@
(define-compilation cdr (x)
(concat "(" (ls-compile x env fenv) ").cdr"))
(define-compilation cdr (x)
(concat "(" (ls-compile x env fenv) ").cdr"))
-
-
(define-compilation symbol-name (x)
(concat "(" (ls-compile x env fenv) ").name"))
(define-compilation symbol-name (x)
(concat "(" (ls-compile x env fenv) ").name"))
@@
-397,6
+395,16
@@
(define-compilation code-char (x)
(concat "String.fromCharCode( " (ls-compile x env fenv) ")"))
(define-compilation code-char (x)
(concat "String.fromCharCode( " (ls-compile x env fenv) ")"))
+(define-compilation funcall (func &rest args)
+ (concat "("
+ (ls-compile func env fenv)
+ ")("
+ (join (mapcar (lambda (x)
+ (ls-compile x env fenv))
+ args)
+ ", ")
+ ")"))
+
(defun %compile-defvar (name)
(push (make-var-binding name) *env*)
(push (concat "var " (lookup-variable name *env*)) *toplevel-compilations*))
(defun %compile-defvar (name)
(push (make-var-binding name) *env*)
(push (concat "var " (lookup-variable name *env*)) *toplevel-compilations*))