summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-02-18 10:19:30 +0100
committerAndy Wingo <wingo@pobox.com>2013-01-16 10:11:37 +0100
commit09a6a7a44a34e3fa9bb2d24c07a80ac256c6011e (patch)
tree1f2044c6351aa6082266640ea496c6717952122b
parent49db248111e876ae0cd3163b08d2967573a15bda (diff)
downloadguile-09a6a7a44a34e3fa9bb2d24c07a80ac256c6011e.tar.gz
peg: module-ref cleanup
* module/ice-9/peg.scm (cg-generic-ret, cg-and-int, cg-body-test): Remove a few needless @ or @@ forms.
-rw-r--r--module/ice-9/peg.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/module/ice-9/peg.scm b/module/ice-9/peg.scm
index d6fb67a55..74664182b 100644
--- a/module/ice-9/peg.scm
+++ b/module/ice-9/peg.scm
@@ -130,7 +130,7 @@
#`(list #,at body))
(else #`(list #,at
(cond
- (((@@ (ice-9 peg) single?) body) (car body))
+ ((single? body) (car body))
(else body))))))
((eq? accum 'none)
#`(list #,at '()))
@@ -245,7 +245,7 @@
(let ((newat (car res))
(newbody (cadr res)))
(set! #,at newat)
- ((@@ (ice-9 peg) push-not-null!) #,body ((@@ (ice-9 peg) single-filter) newbody))
+ (push-not-null! #,body (single-filter newbody))
#,(cg-and-int for-syntax (cdr arglst) accum str strlen at body)))))))
;; Top-level function builder for OR. Reduces to a call to CG-OR-INT.
@@ -273,9 +273,9 @@
(let ((at2 (car at2-body2))
(body2 (cadr at2-body2)))
(set! #,at at2)
- ((@@ (ice-9 peg) push-not-null!)
+ (push-not-null!
#,body
- ((@@ (ice-9 peg) single-filter) body2))
+ (single-filter body2))
#t)))))
;; Returns a block of code that sees whether NUM wants us to try and match more