Oops. Correct stupid error.
This commit is contained in:
parent
9ea6cc038d
commit
2013f67341
|
@ -595,7 +595,8 @@
|
||||||
(define (pretty-print-matcher* m)
|
(define (pretty-print-matcher* m)
|
||||||
(newline)
|
(newline)
|
||||||
(pretty-print-matcher m)
|
(pretty-print-matcher m)
|
||||||
(flush-output))
|
(flush-output)
|
||||||
|
m)
|
||||||
|
|
||||||
(void (pretty-print-matcher*
|
(void (pretty-print-matcher*
|
||||||
(matcher-union (pattern->matcher 'A (list (list ?) 'x))
|
(matcher-union (pattern->matcher 'A (list (list ?) 'x))
|
||||||
|
|
Loading…
Reference in New Issue