match-1-9 from bruce hauman

original commit: 46956e6f7d986f00c29589d84375b38c4cf6421c
This commit is contained in:
Robby Findler 2003-07-19 21:22:40 +00:00
parent 3bc2686e33
commit 020bde3421
2 changed files with 7 additions and 4 deletions

View File

@ -3,7 +3,7 @@
;;
;; All bugs or questions concerning this software should be directed to
;; Bruce Hauman <bhauman@cs.wcu.edu>. The latest version of this software
;; can be obtained from http://sol.cs.wcu.edu/~bhauman/scheme/pattern.html.
;; can be obtained from http://sol.cs.wcu.edu/~bhauman/scheme/pattern.php.
;;
;; Special thanks go out to:
;; Robert Bruce Findler for support and bug detection.
@ -132,6 +132,7 @@
(lib "etc.ss")
(lib "list.ss")
(lib "include.ss")
(lib "pretty.ss")
(lib "struct.ss" "syntax"))
(require (lib "etc.ss")

View File

@ -3,7 +3,7 @@
;;
;; All bugs or questions concerning this software should be directed to
;; Bruce Hauman <bhauman@cs.wcu.edu>. The latest version of this software
;; can be obtained from http://sol.cs.wcu.edu/~bhauman/scheme/pattern.html.
;; can be obtained from http://sol.cs.wcu.edu/~bhauman/scheme/pattern.php.
;;
;; Special thanks go out to:
;; Robert Bruce Findler for support and bug detection.
@ -142,7 +142,8 @@
(lib "etc.ss")
(lib "list.ss")
(lib "include.ss")
(lib "struct.ss" "syntax"))
(lib "struct.ss" "syntax")
(lib "pretty.ss"))
(require (lib "etc.ss")
(lib "list.ss"))
@ -177,6 +178,7 @@
(define node-count 0)
;;!(syntax match-test)
;; This macro only returns a list of two numbers.
;; The first number represents the
@ -196,7 +198,7 @@
'()
(syntax (clause ...))
stx))))
#`(list #,node-count
#`(list #,(add1 node-count)
#,rt)))))))
(define match/proc