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

Fix typos leading to unbound variable references.

Browse source 
* module/ice-9/session.scm (help): Fix unbound reference to `env'.

* module/system/vm/program.scm (program-property): Fix typo.

* module/system/vm/frame.scm: Add missing `#:use-module (system vm
  objcode)'.

* module/system/repl/command.scm (guile:load): New.
  (load): Use either `primitive-load' or `load'.

* module/srfi/srfi-18.scm (thread-sleep!): Fix typo.

* module/srfi/srfi-19.scm: Use `(ice-9 rdelim)'.
  (date->broken-down-time, priv:year-day, priv:char->int): Fix typo.
  (time-*->time-*, time-*->time-*!): Fix reference to unbound variable
  `caller'.

* module/oop/goops.scm (bound-check-get): Fix typo.

* module/language/glil/compile-assembly.scm (glil->assembly): Fix typo.

* module/language/glil.scm (parse-glil): Fix typo.

* module/language/ecmascript/base.scm (object->value/string,
  object->value/number, ->number): Fix typos.

* module/language/assembly/disassemble.scm (disassemble-free-vars): Fix
  typo.
This commit is contained in:
Ludovic Courtès 2009-10-22 22:42:45 +02:00
parent 6bb891dc61
commit 84012ef4b1
11 changed files with 44 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

10
module/language/ecmascript/base.scm
View file

@ -149,14 +149,14 @@
o))))
(define (object->value/string o)
(if (is-a? x <js-object>)
(if (is-a? o <js-object>)
(object->number o #t)
x))
o))
(define (object->value/number o)
(if (is-a? x <js-object>)
(if (is-a? o <js-object>)
(object->string o #t)
x))
o))
(define (object->value o)
;; FIXME: if it's a date, we should try numbers first
@ -176,7 +176,7 @@
((boolean? x) (if x 1 0))
((null? x) 0)
((eq? x *undefined*) +nan.0)
((is-a? x <js-object>) (object->number o))
((is-a? x <js-object>) (object->number x))
((string? x) (string->number x))
(else (throw 'TypeError o '->number))))