[Guile-commits] 61/99: define! primitive only takes one argument.

[Christopher Allan Webber]

cwebber pushed a commit to branch compile-to-js-merge
in repository guile.

commit 30dc57cb0409def8e410e2f2e9fc628f35397169
Author: Ian Price <ianpric...@googlemail.com>
AuthorDate: Wed Aug 2 22:46:13 2017 +0100

    define! primitive only takes one argument.
    
    * module/language/js-il/runtime.js (define!): Ignore argument.
---
 module/language/js-il/runtime.js | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/module/language/js-il/runtime.js b/module/language/js-il/runtime.js
index 51f1c6c..5c544f8 100644
--- a/module/language/js-il/runtime.js
+++ b/module/language/js-il/runtime.js
@@ -313,8 +313,8 @@ scheme.Syntax = function (expr, wrap, module) {
 };
 
 // Modules
-scheme.primitives["define!"] = function(sym, obj) {
-    var b = new scheme.Box(obj);
+scheme.primitives["define!"] = function(sym) {
+    var b = new scheme.Box(scheme.UNDEFINED);
     scheme.env[sym.name] = b;
     return b;
 };