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

psyntax.pp, psyntax.ss (quasiquote): Changed fx= --> =.

Browse source
This commit is contained in:
Mikael Djurfeldt 1997-08-19 01:32:26 +00:00
parent 230c435383
commit ae11ddaef4
2 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

10
ice-9/psyntax.pp
View file

@ -8671,7 +8671,7 @@
(if g1373
(apply
(lambda (g1374)
(if (fx= g1370 '0)
(if (= g1370 '0)
g1374
(g1360
'(#(syntax-object
@ -8714,13 +8714,13 @@
#("i" "i" "i" "i")))))
(g1358
(list g1374)
(fx- g1370 '1)))))
(- g1370 '1)))))
g1373)
((lambda (g1375)
(if g1375
(apply
(lambda (g1377 g1376)
(if (fx= g1370 '0)
(if (= g1370 '0)
(g1357
g1377
(g1358 g1376 g1370))
@ -8778,7 +8778,7 @@
"i")))))
(g1358
(list g1377)
(fx- g1370 '1)))
(- g1370 '1)))
(g1358 g1376 g1370))))
g1375)
((lambda (g1378)
@ -8838,7 +8838,7 @@
"i")))))
(g1358
(list g1379)
(fx+ g1370 '1))))
(+ g1370 '1))))
g1378)
((lambda (g1380)
(if g1380

10
ice-9/psyntax.ss
View file

@ -2080,19 +2080,19 @@
(lambda (p lev)
(syntax-case p (unquote unquote-splicing quasiquote)
((unquote p)
(if (fx= lev 0)
(if (= lev 0)
(syntax p)
(quasicons (syntax (quote unquote))
(quasi (syntax (p)) (fx- lev 1)))))
(quasi (syntax (p)) (- lev 1)))))
(((unquote-splicing p) . q)
(if (fx= lev 0)
(if (= lev 0)
(quasiappend (syntax p) (quasi (syntax q) lev))
(quasicons (quasicons (syntax (quote unquote-splicing))
(quasi (syntax (p)) (fx- lev 1)))
(quasi (syntax (p)) (- lev 1)))
(quasi (syntax q) lev))))
((quasiquote p)
(quasicons (syntax (quote quasiquote))
(quasi (syntax (p)) (fx+ lev 1))))
(quasi (syntax (p)) (+ lev 1))))
((p . q)
(quasicons (quasi (syntax p) lev) (quasi (syntax q) lev)))
(#(x ...) (quasivector (quasi (syntax (x ...)) lev)))