diff options
Diffstat (limited to 'stdlib/doc-lookup.tl')
| -rw-r--r-- | stdlib/doc-lookup.tl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/stdlib/doc-lookup.tl b/stdlib/doc-lookup.tl index 231d3b62..78597405 100644 --- a/stdlib/doc-lookup.tl +++ b/stdlib/doc-lookup.tl @@ -24,7 +24,7 @@ (exit* (let ((*stdout* *stdnull*)) (run program args))) (exit* 0))) - (@(< @res 0) (error "fork failed")))) + (@(> 0) (error "fork failed")))) (caseql os-symbol ((:linux :macos :openbsd :solaris :solaris10 :android) @@ -53,7 +53,9 @@ (if (> (int-cptr hinst) 32) t (error `~s: failed to open ~s` 'open-url url)))))) - (t (defun open-url (url) (error "~s: not implemented" 'open-url)))) + (t (defun open-url (url) + (ignore url) + (error "~s: not implemented" 'open-url)))) (defun usr:doc (: sym) (iflet ((str (typecase sym |