12 lines
416 B
Scheme
12 lines
416 B
Scheme
#lang scheme/base
|
|
|
|
(require "xml.ss")
|
|
(provide (except-out (all-from-out "xml.ss")
|
|
pi struct:pi pi? make-pi pi-target-name pi-instruction)
|
|
(rename-out [pi p-i]
|
|
[struct:pi struct:p-i]
|
|
[pi? p-i?]
|
|
[make-pi make-p-i]
|
|
[pi-target-name p-i-target-name]
|
|
[pi-instruction p-i-instruction]))
|