mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-31 09:20:23 +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 (if g1373
(apply (apply
(lambda (g1374) (lambda (g1374)
(if (fx= g1370 '0) (if (= g1370 '0)
g1374 g1374
(g1360 (g1360
'(#(syntax-object '(#(syntax-object
@ -8714,13 +8714,13 @@
#("i" "i" "i" "i"))))) #("i" "i" "i" "i")))))
(g1358 (g1358
(list g1374) (list g1374)
(fx- g1370 '1))))) (- g1370 '1)))))
g1373) g1373)
((lambda (g1375) ((lambda (g1375)
(if g1375 (if g1375
(apply (apply
(lambda (g1377 g1376) (lambda (g1377 g1376)
(if (fx= g1370 '0) (if (= g1370 '0)
(g1357 (g1357
g1377 g1377
(g1358 g1376 g1370)) (g1358 g1376 g1370))
@ -8778,7 +8778,7 @@
"i"))))) "i")))))
(g1358 (g1358
(list g1377) (list g1377)
(fx- g1370 '1))) (- g1370 '1)))
(g1358 g1376 g1370)))) (g1358 g1376 g1370))))
g1375) g1375)
((lambda (g1378) ((lambda (g1378)
@ -8838,7 +8838,7 @@
"i"))))) "i")))))
(g1358 (g1358
(list g1379) (list g1379)
(fx+ g1370 '1)))) (+ g1370 '1))))
g1378) g1378)
((lambda (g1380) ((lambda (g1380)
(if g1380 (if g1380

10
ice-9/psyntax.ss
View file

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