7d50e61c7f
* Another big chunk of v4-require-isms * Allow `#lang framework/keybinding-lang' for keybinding files * Move hierlist sources into "mrlib/hierlist", leave stub behind svn: r10689
11 lines
333 B
Scheme
11 lines
333 B
Scheme
(module pr7823 mzscheme
|
|
(require web-server/response-structs)
|
|
|
|
(define x (make-response/full
|
|
200 "OK" (current-seconds) #"text/html" '()
|
|
(list "<html><body>Hello</body></html>")))
|
|
|
|
(display x) (newline)
|
|
(display (response/full-body x)) (newline)
|
|
(display (response/basic-extras x)) (newline))
|