Fix missing parens

There's a paren mismatch introduced by a previous commit
2019-02-19 11:22:54 +01:00 · 2019-02-19 11:22:54 +01:00 · 166c97ecea
commit 166c97ecea
parent 5c1b1bf8cf
1 changed files with 3 additions and 2 deletions
--- a/racket/src/io/port/file-stream.rkt
+++ b/racket/src/io/port/file-stream.rkt
@ -12,7 +12,8 @@
  (make-struct-type-property 'file-stream))

 (define (file-stream-port? p)
-  (define core-port (or (->core-input-port p #:default #f)
-                        (->core-output-port p #:default #f))
+  (define core-port 
+    (or (->core-input-port p #:default #f)
+        (->core-output-port p #:default #f)))
  (and (file-stream-ref core-port #f) #t))