Skip to content
Browse files

fix init directory

  • Loading branch information...
1 parent 3e5c55d commit 0f45d3e9de2b568050d9ec8f99c1f7e504d05593 @Metaxal committed Sep 11, 2013
Showing with 5 additions and 1 deletion.
  1. +3 −1 mred-designer/controller.rkt
  2. +2 −0 mred-designer/main.rkt
View
4 mred-designer/controller.rkt
@@ -273,7 +273,9 @@
;; Simplified to return #t on success, #f otherwise - kdh 2012-02-29
(define/provide (load-project file)
(debug-printf "load-project: ~a~n" file)
- (parameterize ([current-directory (path-only file)])
+ (debug-printf "current-dir: ~a\n"(current-directory))
+ (parameterize ([current-directory (find-system-path 'orig-dir)
+ #;(path-only file)])
(let ([mids (load-mred file #f)])
(or
(and mids
View
2 mred-designer/main.rkt
@@ -129,6 +129,8 @@
(define no-project-loaded #t)
(for ([arg (current-command-line-arguments)])
(match arg
+ [(or "-d" "--debug")
+ (set-debug #t)]
[(regexp ".*\\.med$")
(printf "loading project ~a:" arg)
(set! no-project-loaded #f)

0 comments on commit 0f45d3e

Please sign in to comment.
Something went wrong with that request. Please try again.