81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
"-use-server"
"-guimonitor"
"-main"
"-v"
"-q"
"-use-local"
"-skip-version-check"
)
args:arg-hash
0))
(if (not (null? remargs))
(begin
(print "Unrecognised arguments: " (string-intersperse remargs " "))
|
>
|
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
"-use-server"
"-guimonitor"
"-main"
"-v"
"-q"
"-use-local"
"-skip-version-check"
"-repl"
)
args:arg-hash
0))
(if (not (null? remargs))
(begin
(print "Unrecognised arguments: " (string-intersperse remargs " "))
|
3353
3354
3355
3356
3357
3358
3359
3360
3361
|
(thread-join! th2)))))
;; ease debugging by loading ~/.dashboardrc
(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.dashboardrc")))
(if (file-exists? debugcontrolf)
(load debugcontrolf)))
(main)
|
>
>
|
|
3354
3355
3356
3357
3358
3359
3360
3361
3362
3363
3364
|
(thread-join! th2)))))
;; ease debugging by loading ~/.dashboardrc
(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.dashboardrc")))
(if (file-exists? debugcontrolf)
(load debugcontrolf)))
(if (args:get-arg "-repl")
(repl)
(main))
|