From ef48b81adea8119985e66c36f1ac7d4570ad6922 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Tue, 4 Jun 2019 11:39:20 +0200 Subject: compile: get-doc: Simplify. * modules/language/python/compile.scm (get-doc): Simplify. --- modules/language/python/compile.scm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/modules/language/python/compile.scm b/modules/language/python/compile.scm index efb98a2..c52905b 100644 --- a/modules/language/python/compile.scm +++ b/modules/language/python/compile.scm @@ -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)) -- cgit v1.2.3