compile: get-doc: Simplify.
authorRicardo Wurmus <rekado@elephly.net>
Tue, 4 Jun 2019 09:39:20 +0000 (11:39 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Tue, 4 Jun 2019 09:39:20 +0000 (11:39 +0200)
* modules/language/python/compile.scm (get-doc): Simplify.

modules/language/python/compile.scm

index efb98a2..c52905b 100644 (file)
@@ -988,9 +988,7 @@ empty list."
 
 (define *doc* (make-fluid #f))
 (define (get-doc)
-  (aif it (fluid-ref *doc*)
-       it
-       ""))
+  (or (fluid-ref *doc*) ""))
 (define set-doc
   (case-lambda
     (()  (fluid-set! *doc* #f))