[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.5-170-g6b5e9

From: Noah Lavine
Subject: [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.5-170-g6b5e918
Date: Sat, 09 Jun 2012 01:23:33 +0000

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

The branch, stable-2.0 has been updated
       via  6b5e918e4f3cf011713e699c6af1c4e364bfae36 (commit)
      from  e80494083aa3e9dc40a7ae5da12f0e90db550889 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 6b5e918e4f3cf011713e699c6af1c4e364bfae36
Author: Sjoerd van Leent <address@hidden>
Date:   Fri Jun 8 21:21:08 2012 -0400

    Fix unbound variables and unbound values
    * module/language/ecmascript/base.scm: fix two wrong variable names and a 
      number of arguments in a function call.


Summary of changes:
 module/language/ecmascript/base.scm |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/module/language/ecmascript/base.scm 
index b244bec..6f5c65b 100644
--- a/module/language/ecmascript/base.scm
+++ b/module/language/ecmascript/base.scm
@@ -92,7 +92,7 @@
   (pdel o (string->symbol p)))
 (define-method (has-property? (o <js-object>) p)
-  (if (hashq-get-handle (js-props o) v)
+  (if (hashq-get-handle (js-props o) p)
       (let ((proto (js-prototype o)))
         (if proto
@@ -176,9 +176,9 @@
         ((boolean? x) (if x 1 0))
         ((null? x) 0)
         ((eq? x *undefined*) +nan.0)
-        ((is-a? x <js-object>) (object->number x))
+        ((is-a? x <js-object>) (object->number x #t))
         ((string? x) (string->number x))
-        (else (throw 'TypeError o '->number))))
+        (else (throw 'TypeError x '->number))))
 (define (->integer x)
   (let ((n (->number x)))

GNU Guile

reply via email to

[Prev in Thread] Current Thread [Next in Thread]