mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-02 23:50:47 +02:00
Code Activity

lua/common cleanup

Browse source 
* module/language/lua/common.scm: Remove `or-eqv?'. Make a bit more
  idiomatic.

* module/language/lua/compile-tree-il.scm:
* module/language/lua/lexer.scm:
* module/language/lua/parser.scm:
* module/language/lua/runtime.scm: Replace or-eqv? instances with memq
  or memv.
This commit is contained in:
Andy Wingo 2010-12-10 11:33:18 +01:00 • committed by Ian Price
parent 32c58e2edd
commit a0cecd8ff2
5 changed files with 8 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/lua/runtime.scm
View file

@ -500,7 +500,7 @@
(lambda* (e #:optional (base 10))
(cond ((number? e) e)
((string? e)
(unless (or-eqv? base 2 8 10 16)
(unless (memv base '(2 8 10 16))
(runtime-warning "tonumber cannot respect bases other than 2, 8, 10, and 16"))
(string->number e base))
(else #nil))))