File: compile.sch

package info (click to toggle)
sdc 1.0.8beta-8
  • links: PTS
  • area: contrib
  • in suites: slink
  • size: 1,400 kB
  • ctags: 874
  • sloc: lisp: 8,120; ansic: 967; makefile: 671; perl: 136; sh: 50
file content (3 lines) | stat: -rw-r--r-- 182 bytes parent folder | download 
1
2
3
 
(define-macro (start-tag? t) `(eq? (token-type ,t) 'STARTTAG))
(define-macro (end-tag? t) `(eq? (token-type ,t) 'ENDTAG))
(define-macro (data-token? t) `(eq? (token-type ,t) 'DATA))