[uim-commit] r2914 - branches/r5rs/sigscheme/src

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-14 08:46:27 -0800 (Sat, 14 Jan 2006)
New Revision: 2914

Modified:
   branches/r5rs/sigscheme/src/storage-symbol.c
Log:
* sigscheme/src/storage-symbol.c
  - (scm_intern): Add validation for Unicode identifier but disabled
    since it does not work yet


Modified: branches/r5rs/sigscheme/src/storage-symbol.c
===================================================================
--- branches/r5rs/sigscheme/src/storage-symbol.c	2006-01-14 16:32:37 UTC (rev 2913)
+++ branches/r5rs/sigscheme/src/storage-symbol.c	2006-01-14 16:46:27 UTC (rev 2914)
@@ -74,6 +74,14 @@
     int hash;
     DECLARE_INTERNAL_FUNCTION("scm_intern");
 
+#if (SCM_USE_SRFI75 && SCM_STRICT_ARGCHECK)
+#if 0
+    /* FIXME: detect error correctly */
+    if (scm_mb_bare_c_strlen(scm_identifier_codec, name) < 0)
+        ERR("invalid string for identifier: %s", name);
+#endif
+#endif
+
     hash = symbol_name_hash(name);
     lst = scm_symbol_hash[hash];