mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 17:20:29 +02:00
Code Activity

Compile Syntax Objects to Javascript

Browse source 
* module/language/js-il/compile-javascript.scm (compile-const):
  Handle the new syntax object struct.
* module/language/js-il/runtime.js(scheme.Syntax): Add Syntax Object type
This commit is contained in:
Ian Price 2017-06-20 22:50:06 +01:00
parent c2589b5c48
commit 536d94feb3
2 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
module/language/js-il/compile-javascript.scm
View file

@ -6,6 +6,7 @@
#:use-module (language javascript simplify) #:use-module (language javascript simplify)
#:use-module (language js-il inlining) #:use-module (language js-il inlining)
#:use-module (system foreign) #:use-module (system foreign)
#:use-module (system syntax internal)
#:export (compile-javascript)) #:export (compile-javascript))
(define (undefined? obj) (define (undefined? obj)
@ -355,5 +356,12 @@
(list (make-const (symbol->string (keyword->symbol c))))))) (list (make-const (symbol->string (keyword->symbol c)))))))
((undefined? c) ((undefined? c)
(make-refine *scheme* (make-const "UNDEFINED"))) (make-refine *scheme* (make-const "UNDEFINED")))
((syntax? c)
(make-call
(make-refine *scheme* (make-const "Syntax"))
(map compile-const
(list (syntax-expression c)
(syntax-wrap c)
(syntax-module c)))))
(else (else
(throw 'uncompilable-const c)))) (throw 'uncompilable-const c))))

8
module/language/js-il/runtime.js
View file

@ -291,6 +291,14 @@ scheme.primitives["builtin-ref"] = function (idx) {
return scheme.builtins[idx]; return scheme.builtins[idx];
}; };
// Syntax Objects
scheme.Syntax = function (expr, wrap, module) {
this.expr = expr;
this.wrap = wrap;
this.module = module;
return this;
};
// Modules // Modules
scheme.primitives["define!"] = function(sym, obj) { scheme.primitives["define!"] = function(sym, obj) {
var b = new scheme.Box(obj); var b = new scheme.Box(obj);