From cf2107a22376c686e3c773a36e879c3e9cd2bafd Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Fri, 8 Sep 1995 00:56:01 +0000 Subject: [PATCH] Added FORM/EXACT-INTEGER? --- v8/src/compiler/midend/utils.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/v8/src/compiler/midend/utils.scm b/v8/src/compiler/midend/utils.scm index 6eb66eabd..1f25f0f55 100644 --- a/v8/src/compiler/midend/utils.scm +++ b/v8/src/compiler/midend/utils.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: utils.scm,v 1.29 1995/09/05 19:08:20 adams Exp $ +$Id: utils.scm,v 1.30 1995/09/08 00:56:01 adams Exp $ Copyright (c) 1994-1995 Massachusetts Institute of Technology @@ -632,6 +632,11 @@ Example use of FORM/COPY-TRANSFORMING: (and (QUOTE/? form) (number? (quote/text form)) (quote/text form))) + +(define (form/exact-integer? form) + (and (QUOTE/? form) + (exact-integer? (quote/text form)) + (quote/text form))) (define (binding-context-type keyword context bindings) (if (or (eq? keyword 'LETREC) -- 2.25.1