mescc: Output performance hacks: use core:display.
[mes.git] / module / mes / guile.scm
index 3f46f7f94972f6b0f0c5cd4b2ffe280b607eab41..efb9f78ffb758cdd4fd9665727fc7d2611d55ad9 100644 (file)
 
 ;;; Code:
 
-(define-module (mes guile))
+(define-module (mes guile)
+  #:export (core:display core:display-error))
+
+(cond-expand
+ (guile
+  (define core:display display)
+  (define (core:display-error o) (display o (current-error-port))))
+ (mes))
 
 (cond-expand
  (guile-2.2)