10 lines
304 B
Scheme
10 lines
304 B
Scheme
#lang scheme/base
|
|
|
|
(require "html.ss")
|
|
(provide (except-out (all-from-out "html.ss")
|
|
link struct:link make-link link?)
|
|
(rename-out [link alink]
|
|
[struct:link struct:alink]
|
|
[make-link make-alink]
|
|
[link? alink?]))
|