; This file was automatically generated by mcs (load "colscheme.sch") (define (invmatch i) (cond ((= i 1) 'nul) ;COL type: stid "tuple" ((= i 2) 'new) ;COL type: cr cint (cr (stid "tuple") (stid "tuple")) ((= i 3) 'sqr) ;COL type: cr cint cint ((= i 4) 'plus) ;COL type: cr cint (cr cint cint) ((= i 5) 'times) ;COL type: cr cint (cr cint cint) ((= i 6) 'size) ;COL type: cr (stid "tuple") cint ((= i 7) 'mapfn) ;COL type: cr (cr cint cint) (cr (stid "tuple") (stid "tuple")) ((= i 8) 'fold) ;COL type: cr (cr cint (cr cint cint)) (cr (stid "tuple") cint) (#t '()))) (define (match c) (cond ((eq? c 'nul) '(id 1)) ((eq? c 'new) '(id 2)) ((eq? c 'sqr) '(id 3)) ((eq? c 'plus) '(id 4)) ((eq? c 'times) '(id 5)) ((eq? c 'size) '(id 6)) ((eq? c 'mapfn) '(id 7)) ((eq? c 'fold) '(id 8)) (#t 'error)))