diff options
author | Andy Wingo <wingo@pobox.com> | 2011-02-18 10:19:30 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-01-16 10:11:37 +0100 |
commit | 09a6a7a44a34e3fa9bb2d24c07a80ac256c6011e (patch) | |
tree | 1f2044c6351aa6082266640ea496c6717952122b | |
parent | 49db248111e876ae0cd3163b08d2967573a15bda (diff) | |
download | guile-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.scm | 8 |
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 |