diff options
| author | Paul A. Patience <paul@apatience.com> | 2021-07-05 00:02:30 -0400 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-07-05 14:36:38 -0700 |
| commit | ab44f937306b352e82d1c02c0a173748a8b33181 (patch) | |
| tree | 41dcc94d16e216589f425502ebe4bb490be6be4e /stdlib | |
| parent | c656cf912e32f394a525d970bce7b08e47f06333 (diff) | |
| download | txr-ab44f937306b352e82d1c02c0a173748a8b33181.tar.gz txr-ab44f937306b352e82d1c02c0a173748a8b33181.tar.bz2 txr-ab44f937306b352e82d1c02c0a173748a8b33181.zip | |
doc-lookup: add support for OpenBSD.
* stdlib/doc-lookup.tl (os-symbol): Add case for OpenBSD.
(open-url): Same.
Diffstat (limited to 'stdlib')
| -rw-r--r-- | stdlib/doc-lookup.tl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/stdlib/doc-lookup.tl b/stdlib/doc-lookup.tl index ea2ede3c..e939aa2a 100644 --- a/stdlib/doc-lookup.tl +++ b/stdlib/doc-lookup.tl @@ -14,6 +14,7 @@ (iff (f^ #/CYGWIN/) (ret :cygwin)) (iff (f^ #/CYGNAL/) (ret :cygnal)) (iff (f^ #/Darwin/) (ret :macos)) + (iff (f^ #/OpenBSD/) (ret :openbsd)) (ret :unknown)) u.sysname]))) @@ -26,10 +27,10 @@ (@(< @res 0) (error "fork failed")))) (caseql os-symbol - ((:linux :macos :solaris :solaris10 :android) + ((:linux :macos :openbsd :solaris :solaris10 :android) (defun open-url (url) (let ((opener (caseql os-symbol - ((:linux :solaris :android) "xdg-open") + ((:linux :openbsd :solaris :android) "xdg-open") (:solaris10 "/usr/dt/bin/sdtwebclient") (:macos "open"))) (fallback '#"firefox iceweasel seamonkey mozilla \ |