Update base.rkt

8 years ago · a77737e1e6
parent fee9c8fd4d
commit a77737e1e6
1 changed files with 1 additions and 1 deletions
--- a/pitfall/xenomorph/private/base.rkt
+++ b/pitfall/xenomorph/private/base.rkt
@ -60,7 +60,7 @@
                   [(output-port? port) port]
                   [(not port) (open-output-bytes)]
                   [else (raise-argument-error 'Xenomorph "output port or #f" port)]))
-      (define encode-result (inner (void) encode port val parent))
+      (define encode-result (inner (void) encode op val parent))
      (when (bytes? encode-result)
        (write-bytes encode-result op))
      (when (not port) (get-output-bytes op)))