mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 20:30:28 +02:00
Code Activity

module/language/lua/parser.scm: Rename #:dots to #:varargs

Browse source
This commit is contained in:
Phil 2011-04-22 01:11:38 -05:00 • committed by Ian Price
parent becaec9a4e
commit faa16f9989
6 changed files with 15 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -125,7 +125,7 @@
(define *special-tokens*
'(#\. #\( #\) #\, #\- #\< #\; #\+ #\{ #\} #\[ #\] #\: #\#
#:function #:end #:if #:return #:elseif #:then #:else #:true #:false
#:nil #:== #:~= #:= #\> #:>= #:<= #:local #:dots #:break #:do #:in
#:nil #:== #:~= #:= #\> #:>= #:<= #:local #:varargs #:break #:do #:in
#:and #:or))
(define (token/type t)
@ -466,7 +466,7 @@
(values (reverse! parameters) #f))))
((#\))
(values (reverse! parameters) #f))
((#:dots)
((#:varargs)
(advance!)
(values (reverse! parameters) #t))
(else
@ -532,7 +532,7 @@
;; table-literal
((#\{) (table-literal))
;; ...
((#:dots)
((#:varargs)
(unless *vararg-function*
(syntax-error src "cannot use '...' outside of a variable arguments function"))
(advance! (make-ast-variable-arguments src)))