#langscheme
(require"common/main-new.ss")
(provide [all-from-out"common/main-new.ss"])
;; I don't think we should print the forms inside lists, etc.
;; I think this is better:
;; If the top-level form yields a primitive or an operation application:
;; print it or whatever.
;; If it yields another kind of value (list of primitives, for example),
;; I don't think we should send them to the backend...
;; It can be an intermediate step in an algorithm the user may be testing...
(provide#%top-interaction)
(define-syntax#%top-interaction
(syntax-rules ()
[(_ . form)
(let ([resform]) ;; Evaluate 'form
(top-level-printerres))]))