;;;                                io.s                            4/9/91
;;; C. David Boyer
;;; Compiler Options: inline
;;; 
;;; Notes: These are only for bootstrapping. They are (or should be)
;;;        redefined later.


(set! newline
  (lambda p
    (let ((op (if (null? p) (current-output-port) (car p))))
      (write-char #\return op)
      (write-char #\newline op))))