8 lines
166 B
Scheme
8 lines
166 B
Scheme
#lang scheme
|
|
|
|
(printf "Setting the default browser to something safe...~n")
|
|
|
|
; XXX maybe have it call /quit
|
|
(put-preferences
|
|
'(external-browser)
|
|
'(("echo " . ""))) |