From b56ede3d8eb9b4444fbf1f625e02dfc3da478230 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sun, 26 Nov 2006 15:58:48 +0100 Subject: [PATCH] add string-or-symbol? --- scm/c++.scm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/scm/c++.scm b/scm/c++.scm index adc21cea23..7069ca1a41 100644 --- a/scm/c++.scm +++ b/scm/c++.scm @@ -27,6 +27,9 @@ (define-public (boolean-or-symbol? x) (or (boolean? x) (symbol? x))) +(define-public (string-or-symbol? x) + (or (string? x) (symbol? x))) + (define-public (number-or-string? x) (or (number? x) (string? x))) -- 2.39.2