21 lines
505 B
Scheme
21 lines
505 B
Scheme
|
; Copyright (c) 1993, 1994 Richard Kelsey and Jonathan Rees. See file COPYING.
|
||
|
|
|
||
|
|
; Tiny image test system
|
||
|
|
|
||
|
|
;(initialize-defpackage! ?? ??)
|
||
|
|
;(define-structure tiny-system (export start)
|
||
|
|
; (define-all-operators)
|
||
|
|
; (files (debug tiny)))
|
||
|
|
;(link-simple-system '(debug tiny) 'start tiny-system)
|
||
|
|
|
||
|
|
|
||
|
|
(define (start arg in out)
|
||
|
|
(write-string "Hello " out)
|
||
|
|
(if (vector? arg)
|
||
|
|
(if (< 0 (vector-length arg))
|
||
|
|
(write-string (vector-ref arg 0) out)))
|
||
|
|
(write-char #\newline out)
|
||
|
|
(force-output out)
|
||
|
|
0)
|
||
|
|
|