10 lines
290 B
Scheme
10 lines
290 B
Scheme
(module (menu)
|
|
()
|
|
(import (scheme)
|
|
(chicken base)
|
|
(chicken irregex)
|
|
(chicken process-context))
|
|
(include-relative "./menu-impl.scm")
|
|
(change-directory
|
|
(irregex-match-substring (irregex-search '(: bos (* any) #\/) (executable-pathname))))
|
|
(main))
|