From ab44f937306b352e82d1c02c0a173748a8b33181 Mon Sep 17 00:00:00 2001 From: "Paul A. Patience" Date: Mon, 5 Jul 2021 00:02:30 -0400 Subject: doc-lookup: add support for OpenBSD. * stdlib/doc-lookup.tl (os-symbol): Add case for OpenBSD. (open-url): Same. --- stdlib/doc-lookup.tl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'stdlib') 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 \ -- cgit v1.2.3