diff options
Diffstat (limited to 'src/ellinika')
-rw-r--r-- | src/ellinika/cgi.scm4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/ellinika/cgi.scm4 b/src/ellinika/cgi.scm4 index 51f9570..28adea1 100644 --- a/src/ellinika/cgi.scm4 +++ b/src/ellinika/cgi.scm4 @@ -124,13 +124,13 @@ ifelse(IFACE,[CGI],[ arglist (cons "?" arglist)))))) (define-public (cgi-program-name prog) (string-append (substring cgi-script-name 0 (string-rindex cgi-script-name #\/)) "/" - prog ".SCRIPT_SUFFIX")) + prog ifelse(SCRIPT_SUFFIX,,,"SCRIPT_SUFFIX"))) (define-public (expand-template explist template) "(expand-template EXPLIST TEMPLATE) Expands string TEMPLATE in accordance with EXPLIST. EXPLIST is a list of elements: |