diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-23 23:34:11 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-08-18 16:38:37 +0200 |
commit | 309c6a49f75283e34ca027bf32d80821a226cf25 (patch) | |
tree | 51b297040c32519388ae30b4f8a6374f671b1afe /module/c/cpp-environment.scm | |
parent | Only parse h-strings where applicable. (diff) | |
download | calp-309c6a49f75283e34ca027bf32d80821a226cf25.tar.gz calp-309c6a49f75283e34ca027bf32d80821a226cf25.tar.xz |
General cleanup around cpp.
Diffstat (limited to 'module/c/cpp-environment.scm')
-rw-r--r-- | module/c/cpp-environment.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/module/c/cpp-environment.scm b/module/c/cpp-environment.scm index 3bc94020..951540fa 100644 --- a/module/c/cpp-environment.scm +++ b/module/c/cpp-environment.scm @@ -52,7 +52,9 @@ (define (%printer r p) - (format p "#<~a>" (pprint-macro r))) + (display "#<" p) + (pprint-macro r p) + (display ">" p)) (define-type (function-macro printer: %printer) (fun:identifier type: string? key: identifier) @@ -242,7 +244,7 @@ -(define* (pprint-environment environment optional: (port (current-error-port))) +(define* (pprint-environment environment optional: (port (current-output-port))) (display "/*** Environment ***/\n" port) (for-each (lambda (pair) (pprint-macro (cdr pair) port) |