From deee127a0e7d1803436033ff40d62f9bdf478c35 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 9 Jul 2022 23:18:16 +0200 Subject: Extend type-clauses with not. --- module/c/cpp-environment.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'module/c/cpp-environment.scm') diff --git a/module/c/cpp-environment.scm b/module/c/cpp-environment.scm index d6c86f7a..51f16168 100644 --- a/module/c/cpp-environment.scm +++ b/module/c/cpp-environment.scm @@ -77,7 +77,7 @@ (cpp-if-status type: (list-of (memv '(outside active-if inactive-if))) default: '(outside)) (cpp-variables type: hash-table? default: (make-hash-table)) - (cpp-file-stack type: (and ((negate null?)) + (cpp-file-stack type: (and (not null?) (list-of (pair-of string? exact-integer?))) default: '(("*outside*" . 1)))) -- cgit v1.2.3