Merge pull request #206 from arclanguage/expand-user-directories

When opening a file, expand user directories.
arclanguage · Jun 11, 2021 · 67522d1 · 67522d1
2 parents 04aadf4 + 21fcbcf
commit 67522d1
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/ac.rkt b/ac.rkt
@@ -1006,10 +1006,13 @@
 
 (xdef call/ec call-with-escape-continuation)
 
-(xdef infile  open-input-file)
+(xdef infile (lambda (f . args)
+               (apply open-input-file
+                      (expand-user-path f)
+                      args)))
 
 (xdef outfile (lambda (f . args)
-                 (open-output-file f
+                 (open-output-file (expand-user-path f)
                                    ;#:mode 'text
                                    #:exists (if (equal? args '(append))
                                        'append