mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-01 23:30:28 +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

8
module/language/lua/parser.scm
View file

@ -121,7 +121,7 @@
(define (end-of-chunk? token)
"Returns true if TOKEN denotes the end of a grammatical chunk."
(or (or-eqv? token #:else #:elseif #:end #:until) (eof-object? token)))
(or (memq token '(#:else #:elseif #:end #:until)) (eof-object? token)))
(define (token/type t)
(cond ((number? t) 'NUMBER)
@ -138,11 +138,11 @@
;; infix operator parsing
(define (binary-operator? t)
"Return #t if the token may be a binary operator"
(or-eqv? t #\+ #\* #\/ #\- #\^ #\< #\> #:== #:~= #:and #:or #:concat))
(memv t '(#\+ #\* #\/ #\- #\^ #\< #\> #:== #:~= #:and #:or #:concat)))
(define (unary-operator? t)
"Return #t if the token may be a unary operator"
(or-eqv? t #\- #\# #:not))
(memv t '(#\- #\# #:not)))
;; Operator precedence
(define *unary-priority* 80)
@ -817,7 +817,7 @@
(lookahead!)
(if (eq? token2 #:=)
(numeric-for src name)
(if (or-eqv? token2 #:in #\,)
(if (memv token2 '(#:in #\,))
(list-for src name)
(syntax-error src "expected = or in after for variable"))))))
result))