[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile ChangeLog validate.h
From: |
Mikael Djurfeldt |
Subject: |
guile/guile-core/libguile ChangeLog validate.h |
Date: |
Fri, 12 Oct 2001 04:55:06 -0400 |
CVSROOT: /cvs
Module name: guile
Changes by: Mikael Djurfeldt <address@hidden> 01/10/12 04:55:06
Modified files:
guile-core/libguile: ChangeLog validate.h
Log message:
* validate.h (SCM_VALIDATE_DOUBLE_DEF_COPY): New macro.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/ChangeLog.diff?cvsroot=OldCVS&tr1=1.1529&tr2=1.1530&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/validate.h.diff?cvsroot=OldCVS&tr1=1.37&tr2=1.38&r1=text&r2=text
Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1529
guile/guile-core/libguile/ChangeLog:1.1530
--- guile/guile-core/libguile/ChangeLog:1.1529 Thu Oct 11 19:20:52 2001
+++ guile/guile-core/libguile/ChangeLog Fri Oct 12 04:55:05 2001
@@ -1,3 +1,9 @@
+2001-10-12 Mikael Djurfeldt <address@hidden>
+
+ * debug.c (scm_mem_to_proc): Fixed typo in previous change.
+
+ * validate.h (SCM_VALIDATE_DOUBLE_DEF_COPY): New macro.
+
2001-10-12 Dirk Herrmann <address@hidden>
* print.c (scm_print_state_vtable, print_state_pool):
Index: guile/guile-core/libguile/validate.h
diff -u guile/guile-core/libguile/validate.h:1.37
guile/guile-core/libguile/validate.h:1.38
--- guile/guile-core/libguile/validate.h:1.37 Sun Sep 23 17:25:26 2001
+++ guile/guile-core/libguile/validate.h Fri Oct 12 04:55:05 2001
@@ -293,6 +293,19 @@
} \
} while (0)
+#define SCM_VALIDATE_DOUBLE_DEF_COPY(pos, k, default, cvar) \
+ do { \
+ if (SCM_UNBNDP (k)) \
+ { \
+ k = scm_make_real (default); \
+ cvar = default; \
+ } \
+ else \
+ { \
+ cvar = SCM_NUM2DOUBLE (pos, k); \
+ } \
+ } while (0)
+
/* [low,high) */
#define SCM_VALIDATE_INUM_RANGE(pos,k,low,high) \
do { SCM_ASSERT(SCM_INUMP(k), k, pos, FUNC_NAME); \
- guile/guile-core/libguile ChangeLog validate.h,
Mikael Djurfeldt <=