guile/guile-core/libguile ChangeLog validate.h

[Mikael Djurfeldt]

CVSROOT:        /cvs
Module name:    guile
Branch:         branch_release-1-6
Changes by:     Mikael Djurfeldt <address@hidden>       01/10/12 05:00:24

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&only_with_tag=branch_release-1-6&tr1=1.1465.2.37&tr2=1.1465.2.38&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/validate.h.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.34.2.2&tr2=1.34.2.3&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); \