Changeset 7276 in project

Timestamp:

01/05/08 20:17:50 (12 years ago)

Author:

felix winkelmann

Message:

merged trunk

Location:

chicken/branches/release

Files:

• Makefile (modified) (2 diffs)
• Makefile.cross-linux-mingw (modified) (5 diffs)
• Makefile.cygwin (modified) (3 diffs)
• Makefile.linux (modified) (1 diff)
• Makefile.macosx (modified) (1 diff)
• Makefile.mingw (modified) (4 diffs)
• Makefile.mingw-msys (modified) (1 diff)
• NEWS (modified) (1 diff)
• README (modified) (7 diffs)
• apply-hack.x86-64.s (modified) (1 diff)
• batch-driver.scm (modified) (11 diffs)
• bootstrap.tar.gz (copied) (copied from chicken/trunk/bootstrap.tar.gz)
• buildversion (modified) (1 diff)
• c-backend.scm (modified) (21 diffs)
• c-platform.scm (modified) (4 diffs)
• chicken-bug.1 (modified) (2 diffs)
• chicken-bug.scm (modified) (7 diffs)
• chicken-ffi-macros.scm (modified) (1 diff)
• chicken-more-macros.scm (modified) (1 diff)
• chicken-setup.scm (modified) (27 diffs)
• chicken.1 (modified) (3 diffs)
• chicken.h (modified) (6 diffs)
• chicken.scm (modified) (2 diffs)
• compiler.scm (modified) (16 diffs)
• csc.scm (modified) (12 diffs)
• csi.1 (modified) (2 diffs)
• csi.scm (modified) (7 diffs)
• debian/changelog (modified) (2 diffs)
• debian/rules (modified) (4 diffs)
• defaults.make (modified) (16 diffs)
• distribution/manifest (modified) (2 diffs)
• eval.scm (modified) (13 diffs)
• extras.scm (modified) (1 diff)
• library.scm (modified) (13 diffs)
• lolevel.scm (modified) (1 diff)
• manual/Accessing external objects (modified) (4 diffs)
• manual/Acknowledgements (modified) (2 diffs)
• manual/C interface (modified) (2 diffs)
• manual/Callbacks (modified) (1 diff)
• manual/Data representation (modified) (1 diff)
• manual/Declarations (modified) (1 diff)
• manual/Deviations from the standard (modified) (2 diffs)
• manual/Extensions to the standard (modified) (3 diffs)
• manual/Foreign type specifiers (modified) (13 diffs)
• manual/Locations (modified) (2 diffs)
• manual/Non-standard macros and special forms (modified) (4 diffs)
• manual/The User's Manual (modified) (1 diff)
• manual/Unit eval (modified) (3 diffs)
• manual/Unit extras (modified) (2 diffs)
• manual/Unit library (modified) (49 diffs)
• manual/Unit posix (modified) (20 diffs)
• manual/Unit regex (modified) (5 diffs)
• manual/Unit srfi-18 (modified) (1 diff)
• manual/Unit utils (modified) (3 diffs)
• manual/Using the compiler (modified) (5 diffs)
• manual/Using the interpreter (modified) (5 diffs)
• manual/chicken-setup (modified) (7 diffs)
• manual/faq (modified) (3 diffs)
• match.scm (modified) (11 diffs)
• misc/build.scm (modified) (1 diff)
• misc/chicken-2.6-build-transcript (copied) (copied from chicken/trunk/misc/chicken-2.6-build-transcript)
• misc/inline.scm (copied) (copied from chicken/trunk/misc/inline.scm)
• misc/makehtml.scm (modified) (5 diffs)
• misc/merge-from-trunk (copied) (copied from chicken/trunk/misc/merge-from-trunk)
• misc/setversion.scm (modified) (3 diffs)
• misc/sync-from-wiki (copied) (copied from chicken/trunk/misc/sync-from-wiki)
• optimizer.scm (modified) (2 diffs)
• patches (copied) (copied from chicken/trunk/patches)
• patches/repobranches-3.0.0.diff (copied) (copied from chicken/trunk/patches/repobranches-3.0.0.diff)
• posixunix.scm (modified) (22 diffs)
• posixwin.scm (modified) (1 diff)
• private-namespace.scm (copied) (copied from chicken/trunk/private-namespace.scm)
• rules.make (modified) (11 diffs)
• runtime.c (modified) (24 diffs)
• scheme-complete.el (modified) (114 diffs)
• srfi-18.scm (modified) (2 diffs)
• support.scm (modified) (10 diffs)
• tests/embedded2.scm (copied) (copied from chicken/trunk/tests/embedded2.scm)
• tests/r4rstest.out (copied) (copied from chicken/trunk/tests/r4rstest.out)
• tests/runtests.sh (modified) (3 diffs)
• tests/test-gc-hooks.scm (copied) (copied from chicken/trunk/tests/test-gc-hooks.scm)
• utils.scm (modified) (10 diffs)
• version.scm (modified) (1 diff)

chicken/branches/release/Makefile

@@ -34 +34 @@
 
 
-.PHONY: all clean distclean spotless install uninstall confclean check
+.PHONY: all clean distclean spotless install uninstall confclean check dist \
+        libs install-libs fullcheck bootstrap
 
 ifndef PLATFORM
@@ -70 +71 @@
 check:
         $(MAKE) -f Makefile.$(PLATFORM) check
+fullcheck:
+        $(MAKE) -f Makefile.$(PLATFORM) fullcheck
+dist:
+        $(MAKE) -f Makefile.$(PLATFORM) distfiles
+        csi -s misc/makedist.scm
+libs:
+        $(MAKE) -f Makefile.$(PLATFORM) libs
+install-libs:
+        $(MAKE) -f Makefile.$(PLATFORM) install-libs
+bootstrap:
+        $(MAKE) -f Makefile.$(PLATFORM) bootstrap
 endif

chicken/branches/release/Makefile.cross-linux-mingw

@@ -36 +36 @@
 # platform configuration
 
+DLLSINPATH = 1
 ARCH = x86
 HACKED_APPLY = 1
@@ -47 +48 @@
 # commands
 
-HOST=mingw32
+HOSTSYSTEM=mingw32
 
 # options
@@ -60 +61 @@
 C_COMPILER_GUI_RUNTIME_OPTIONS = -DC_WINDOWS_GUI
 LINKER_LINK_SHARED_LIBRARY_OPTIONS = -shared
-LIBRARIES = -lm
+LIBRARIES = -lm -lws2_32
 LIBCHICKEN_SO_LINKER_OPTIONS = -Wl,--out-implib,libchicken.dll.a
 LIBUCHICKEN_SO_LINKER_OPTIONS = -Wl,--out-implib,libuchicken.dll.a
@@ -69 +70 @@
 LIBCHICKEN_IMPORT_LIBRARY = libchicken.dll.a
 LIBUCHICKEN_IMPORT_LIBRARY = libuchicken.dll.a
+TARGET_C_COMPILER = gcc
+TARGET_CXX_COMPILER = g++
 
 # special files
@@ -84 +87 @@
         chicken-profile$(EXE) csc$(EXE) libchicken$(SO) \
         libuchicken$(SO) chicken-setup$(EXE) chicken.info \
-        libchickengui$(SO)
+        libchickengui$(SO) chicken-bug$(EXE)
 
 chicken-config.h: chicken-defaults.h

chicken/branches/release/Makefile.cygwin

@@ -41 +41 @@
 # options
 
+SO = .dll
+EXE = .exe
+
+C_COMPILER = gcc
+CXX_COMPILER = g++
+LINKER = gcc
+
+
 C_COMPILER_OPTIONS = -fno-strict-aliasing -DHAVE_CHICKEN_CONFIG_H
 ifdef DEBUGBUILD
 C_COMPILER_OPTIMIZATION_OPTIONS ?= -g -Wall -Wno-unused
 else
-C_COMPILER_OPTIMIZATION_OPTIONS ?= -Os -fomit-frame-pointer
+C_COMPILER_OPTIMIZATION_OPTIONS ?= -Os
 endif
 C_COMPILER_SHARED_OPTIONS = -DPIC
-LINKER_LINK_SHARED_LIBRARY_OPTIONS = -shared
-LIBRARIES = -lm
+LINKER_LINK_SHARED_LIBRARY_OPTIONS = -shared 
+LINKER_LINK_SHARED_PROGRAM_OPTIONS = -Wl,--dll-search-prefix=cyg -Wl,--export-dynamic
+LIBCHICKEN_SO_LINKER_OPTIONS = -Wl,--out-implib,libchicken.dll.a \
+        -Wl,--export-all-symbols \
+        -Wl,--enable-auto-import \
+        -Wl,--image-base=0x10000000 \
+        -Wl,--dll \
+        -Wl,--add-stdcall-alias \
+        -Wl,--no-whole-archive
+LIBUCHICKEN_SO_LINKER_OPTIONS = -Wl,--out-implib,libuchicken.dll.a \
+        -Wl,--export-all-symbols \
+        -Wl,--enable-auto-import \
+        -Wl,--image-base=0x10000000 \
+        -Wl,--dll \
+        -Wl,--add-stdcall-alias \
+        -Wl,--no-whole-archive
+
+LIBRARIES = -lm 
+LIBCHICKEN_SO_LIBRARIES = -lm 
+LIBUCHICKEN_SO_LIBRARIES = -lm 
+LIBCHICKEN_IMPORT_LIBRARY = libchicken.dll.a
+LIBUCHICKEN_IMPORT_LIBRARY = libuchicken.dll.a
+
 
 # special files
 
 CHICKEN_CONFIG_H = chicken-config.h
+APPLY_HACK_OBJECT = apply-hack.$(ARCH)$(O)
 
 # select default and internal settings
 
+CUSTOM_CHICKEN_DEFAULTS=1
 include defaults.make
 
@@ -84 +115 @@
         echo "#define HAVE_GCVT 1" >>$@
         echo "#define HAVE_SYSEXITS_H 1" >>$@
-        echo "#define HAVE_MEMMOVE 1" >>$@
+        echo "#define HAVE_DLFCN_H 1" >>$@
         echo "#define C_STACK_GROWS_DOWNWARD 1" >>$@
 ifdef GCHOOKS
@@ -100 +131 @@
         cat chicken-defaults.h >>$@
 
+chicken-defaults.h:
+        echo "/* generated */" >$@
+        echo "#define C_BUILD_TAG \"$(BUILD_TAG)\"" >>$@
+        echo "#ifndef C_INSTALL_CC" >>$@
+        echo "# define C_INSTALL_CC \"$(C_COMPILER)\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_INSTALL_CXX" >>$@
+        echo "# define C_INSTALL_CXX \"$(CXX_COMPILER)\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_INSTALL_CFLAGS" >>$@
+        echo "# define C_INSTALL_CFLAGS \"$(C_COMPILER_OPTIONS) $(C_COMPILER_OPTIMIZATION_OPTIONS)\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_INSTALL_LDFLAGS" >>$@
+        echo "# define C_INSTALL_LDFLAGS \"$(LINKER_OPTIONS) $(LINKER_OPTIMIZATION_OPTIONS)\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_INSTALL_SHARE_HOME" >>$@
+        echo "# define C_INSTALL_SHARE_HOME \"$(DATADIR)\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_INSTALL_BIN_HOME" >>$@
+        echo "# define C_INSTALL_BIN_HOME \"$(BINDIR)\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_INSTALL_EGG_HOME" >>$@
+        echo "# define C_INSTALL_EGG_HOME \"$(EGGDIR)\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_INSTALL_LIB_HOME" >>$@
+        echo "# define C_INSTALL_LIB_HOME \"$(BINDIR)\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_INSTALL_STATIC_LIB_HOME" >>$@
+        echo "# define C_INSTALL_STATIC_LIB_HOME \"$(LIBDIR)\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_INSTALL_INCLUDE_HOME" >>$@
+        echo "# define C_INSTALL_INCLUDE_HOME \"$(INCDIR)\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_INSTALL_MORE_LIBS" >>$@
+        echo "# define C_INSTALL_MORE_LIBS \"$(LIBRARIES)\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_INSTALL_MORE_STATIC_LIBS" >>$@
+        echo "# define C_INSTALL_MORE_STATIC_LIBS \"$(LIBRARIES)\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_DEFAULT_TARGET_STACK_SIZE" >>$@
+        echo "# define C_DEFAULT_TARGET_STACK_SIZE $(NURSERY)" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_STACK_GROWS_DOWNWARD" >>$@
+        echo "# define C_STACK_GROWS_DOWNWARD $(STACKDIRECTION)" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_TARGET_MORE_LIBS" >>$@
+        echo "# define C_TARGET_MORE_LIBS \"$(TARGET_LIBRARIES)\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_TARGET_MORE_STATIC_LIBS" >>$@
+        echo "# define C_TARGET_MORE_STATIC_LIBS \"$(TARGET_LIBRARIES)\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_TARGET_CC" >>$@
+        echo "# define C_TARGET_CC \"$(TARGET_C_COMPILER)\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_TARGET_CXX" >>$@
+        echo "# define C_TARGET_CXX \"$(TARGET_CXX_COMPILER)\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_TARGET_CFLAGS" >>$@
+        echo "# define C_TARGET_CFLAGS \"$(TARGET_C_COMPILER_OPTIONS) $(TARGET_C_COMPILER_OPTIMIZATION_OPTIONS)\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_TARGET_LDFLAGS" >>$@
+        echo "# define C_TARGET_LDFLAGS \"$(TARGET_LINKER_OPTIONS) $(TARGET_LINKER_OPTIMIZATION_OPTIONS)\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_CROSS_CHICKEN" >>$@
+        echo "# define C_CROSS_CHICKEN $(CROSS_CHICKEN)" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_TARGET_LIB_HOME" >>$@
+        echo "# define C_TARGET_LIB_HOME \"$(TARGET_PREFIX)/bin\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_TARGET_RUN_LIB_HOME" >>$@
+        echo "# define C_TARGET_RUN_LIB_HOME \"$(TARGET_RUN_PREFIX)/bin\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_TARGET_SHARE_HOME" >>$@
+        echo "# define C_TARGET_SHARE_HOME \"$(TARGET_PREFIX)/share\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_TARGET_INCLUDE_HOME" >>$@
+        echo "# define C_TARGET_INCLUDE_HOME \"$(TARGET_PREFIX)/include\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_TARGET_STATIC_LIB_HOME" >>$@
+        echo "# define C_TARGET_STATIC_LIB_HOME \"$(TARGET_PREFIX)/lib\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_CHICKEN_PROGRAM" >>$@
+        echo "# define C_CHICKEN_PROGRAM \"$(CHICKEN_PROGRAM)\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_CSC_PROGRAM" >>$@
+        echo "# define C_CSC_PROGRAM \"$(CSC_PROGRAM)\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_CSI_PROGRAM" >>$@
+        echo "# define C_CSI_PROGRAM \"$(CSI_PROGRAM)\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_CHICKEN_PROFILE_PROGRAM" >>$@
+        echo "# define C_CHICKEN_PROFILE_PROGRAM \"$(CHICKEN_PROFILE_PROGRAM)\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_CHICKEN_SETUP_PROGRAM" >>$@
+        echo "# define C_CHICKEN_SETUP_PROGRAM \"$(CHICKEN_SETUP_PROGRAM)\"" >>$@
+        echo "#endif" >>$@
+        echo "#ifndef C_CHICKEN_BUG_PROGRAM" >>$@
+        echo "# define C_CHICKEN_BUG_PROGRAM \"$(CHICKEN_BUG_PROGRAM)\"" >>$@
+        echo "#endif" >>$@
+
 include rules.make

chicken/branches/release/Makefile.linux

@@ -47 +47 @@
 endif
 LINKER_LINK_SHARED_LIBRARY_OPTIONS = -shared
-LINKER_LINK_SHARED_PROGRAM_OPTIONS = -Wl,-R$(LIBDIR)
-ifdef STATICBUILD
-LIBRARIES = -lm
-else
+RUNTIME_LINKER_PATH = $(shell pwd)
+LINKER_LINK_SHARED_PROGRAM_OPTIONS = -Wl,-R$(RUNTIME_LINKER_PATH)
 LIBRARIES = -lm -ldl
-endif
+NEEDS_RELINKING = yes
 
 # special files

chicken/branches/release/Makefile.macosx

@@ -54 +54 @@
 POSTINSTALL_PROGRAM_FLAGS = -change libchicken$(SO) $(LIBDIR)/libchicken$(SO)
 
+ifeq ($(ARCH),x86-64)
+C_COMPILER_OPTIONS += -m64
+LINKER_OPTIONS += -m64
+endif
+
 # file extensions
 

chicken/branches/release/Makefile.mingw

@@ -36 +36 @@
 # platform configuration
 
+DLLSINPATH = 1
 ARCH = x86
 HACKED_APPLY = 1
@@ -66 +67 @@
 LIBCHICKEN_IMPORT_LIBRARY = libchicken.dll.a
 LIBUCHICKEN_IMPORT_LIBRARY = libuchicken.dll.a
+MAKEDIR_COMMAND_OPTIONS =
 
 # special files
@@ -139 +141 @@
         echo # define C_INSTALL_CFLAGS "$(C_COMPILER_OPTIONS) $(C_COMPILER_OPTIMIZATION_OPTIONS)" >>$@
         echo #endif >>$@
+        echo #ifndef C_INSTALL_LDFLAGS >>$@
+        echo # define C_INSTALL_LDFLAGS "$(LINKER_OPTIONS) $(LINKER_OPTIMIZATION_OPTIONS)" >>$@
+        echo #endif >>$@
         echo #ifndef C_INSTALL_SHARE_HOME >>$@
         echo # define C_INSTALL_SHARE_HOME "$(DATADIR)" >>$@
@@ -184 +189 @@
         echo # define C_TARGET_CFLAGS "$(TARGET_C_COMPILER_OPTIONS) $(TARGET_C_COMPILER_OPTIMIZATION_OPTIONS)" >>$@
         echo #endif >>$@
+        echo #ifndef C_TARGET_LDFLAGS >>$@
+        echo # define C_TARGET_LDFLAGS "$(TARGET_LINKER_OPTIONS) $(TARGET_LINKER_OPTIMIZATION_OPTIONS)" >>$@
+        echo #endif >>$@
         echo #ifndef C_CROSS_CHICKEN >>$@
         echo # define C_CROSS_CHICKEN $(CROSS_CHICKEN) >>$@

chicken/branches/release/Makefile.mingw-msys

@@ -36 +36 @@
 # platform configuration
 
+DLLSINPATH = 1
 ARCH = x86
 HACKED_APPLY = 1

chicken/branches/release/NEWS

@@ -1 @@
-2.732
-
+2.736
+
+- added pre GC hook C-level variable
+- Cygwin is now fully supported
+- removed deprecated functions:
+  extension-info
+  print-backtrace
+  test-feature?
+  ___callback (chicken.h)
+  foreign-callback-lambda[*]
+  thread-deliver-signal!
+  critical-section
+  enable-interrupts
+  disable-interrupts
+  invalid-procedure-call-handler
+- chicken-setup: can create repository catalog file from local 
+  SVN checkout of egg repository
 - Better cross-development support for the build system (the
-  Makefile accepts PROGRAM_PREFIX, PROGRAM_SUFFIX, HOST and TARGET
-  settings)
+  Makefile accepts various variables for customizing the build)
+- "file-size" and "file-stat" handle file-sizes of >4GB now
+- "find-files" collects directories as well, now [Thanks to Ivan Raikov]
+- added "dist" target to toplevel makefile
+- "andmap" and "ormap" have been deprecated
+- makefiles support relinking now
 
 2.717

chicken/branches/release/README

@@ -3 +3 @@
   (c)2000-2007 Felix L. Winkelmann
 
-  Version 2.732
+  version 2.739
 
 
@@ -56 +56 @@
           make PLATFORM=<platform> PREFIX=<destination>
 
-        where "PLATFORM" specifies on what kind of system CHICKEN shall
-        be built and "PREFIX" specifies where the executables and
-        libraries shall be installed. 
+        where "PLATFORM" specifies on what kind of system CHICKEN
+        shall be built and "PREFIX" specifies where the executables
+        and libraries shall be installed. Out-of-directory builds are
+        currently not supported, so you must be in the toplevel source
+        directory to invoke "make".
 
         Enter "make" without any options to see a list of supported 
         platforms.
 
-        If you build CHICKEN directly from the development sources
-        out of the subversion repository, an installed "chicken"
-        executable is required, which defaults to
-        "$PREFIX/bin/chicken". Pass "CHICKEN=<chicken-executable>"
-        to the "make" invocation to override this setting.
+        If you build CHICKEN directly from the development sources out
+        of the subversion repository, you will need a "chicken"
+        executable to generate the compiled C files from the Scheme
+        library sources. If you have a recent version of CHICKEN
+        installed, then pass "CHICKEN=<chicken-executable>" to the
+        "make" invocation to override this setting. "CHICKEN" defaults
+        to defaults to "$PREFIX/bin/chicken".
+
+        If you do not have a "chicken" binary installed, enter
+
+          make PLATFORM=<platform> PREFIX=<destination> bootstrap
+
+        which will unpack a tarball containing precompiled C sources
+        that are recent enough to generate the current version. After
+        building a statically linked "chicken" executable, all Scheme
+        sources are recompiled with it. From this stage on
+        bootstrapping isn't necessary anymore, as long as you have a
+        compiler binary in your source tree.
 
         The build may show errors when creating the info(1)
@@ -128 +143 @@
           A suffix to be appended to the names of all generated executables.
 
+        HOSTSYSTEM=
+          A "<machine>-<platform>" name prefix to use for the C compiler to to
+          use to compile the runtime system and executables. Set this variable
+          if you want to compile CHICKEN for a different architecture than
+          the one on which you are building it.
+
+        TARGETSYSTEM=
+          Similar to "HOSTSYSTEM", but specifies the name prefix to use for compiling
+          code with the "csc" compiler driver. This is required for creating
+          a "cross chicken", a specially built CHICKEN that invokes a cross
+          C compiler to build the final binaries. You will need a cross compiled
+          runtime system by building a version of CHICKEN with the "HOST" option
+          mentioned above. More information about this process and the variables
+          that you should set are provided in the CHICKEN wiki at
+          <http://chicken.wiki.br/cross-compilation>.
+
         To remove CHICKEN from your file-system, enter (probably as
         root):
@@ -182 +213 @@
  5. Platform issues:
 
-  - *BSD system users *must* use GNU make ("gmake") - the makefiles
+        - *BSD system users *must* use GNU make ("gmake") - the makefiles
           can not be processed by BSD make.
 
@@ -194 +225 @@
           `gcc'.
 
-        - Older versions of Solaris have a bug in ld.so that causes
-          trouble with dynamic loading.  Patching Solaris fixes the
-          problem. Solaris 7 needs patch 106950-18. Solaris 8 has an
-          equivalent patch, 109147-16.
-
-          You can find out if you have these patches installed by
-          running:
+        - Older versions of Solaris have a bug in ld.so that causes
+          trouble with dynamic loading.  Patching Solaris fixes the
+          problem. Solaris 7 needs patch 106950-18. Solaris 8 has an
+          equivalent patch, 109147-16.
+
+          You can find out if you have these patches installed by
+          running:
 
           % showrev -p | grep 106950    # solaris 7
           % showrev -p | grep 109147    # solaris 8
 
-  - On NetBSD it might be possible that compilation fails with a
+        - On NetBSD it might be possible that compilation fails with a
           "virtual memory exhausted error".  Try the following:
 
-          % unlimit datasize
-
-  - For Mac OS X, Chicken requires libdl, for loading compiled
+          % unlimit datasize
+
+        - For Mac OS X, Chicken requires libdl, for loading compiled
           code dynamically. This library is available on Mac OS X 10.4
           (Tiger) by default. For older version you can find it here:
@@ -216 +247 @@
             http://www.opendarwin.org/projects/dlcompat
 
-        - On Windows, only mingw32 <http://mingw.sourceforge.net/> is
-          supported (Microsoft Visual Studio is NOT). Makefiles for
-          mingw under MSYS and Windows shell are provided
-          (`Makefile.mingw-msys' and `Makefile.mingw').
+        - On Mac OS X, Chicken can be built in 64-bit mode on Intel
+          Core 2 Duo systems--basically, most recent machines.  The default
+          is 32-bit mode.  To enable 64-bit mode, invoke `make` thusly:
+
+            make PLATFORM=macosx ARCH=x86-64
+
+        - On Windows, only mingw32 <http://mingw.sourceforge.net/> and
+          Cygwin is supported (Microsoft Visual Studio is
+          NOT). Makefiles for mingw under MSYS and Windows shell are
+          provided (`Makefile.mingw-msys' and `Makefile.mingw').
           
-          Be sure that the Chicken LIBDIR is in the Path. Windows
-          looks for '.dll' files along the Path.
+        - Cygwin will not be able to find the chicken shared libraries
+          until Windows is rebooted.
 
         - gcc 3.4 shows sometimes warnings of the form
 
-           easyffi.c: In function `f_11735':
-           easyffi.c:18697: warning: `noreturn' function does return
+            easyffi.c: In function `f_11735':
+            easyffi.c:18697: warning: `noreturn' function does return
         
           when compiling the system or compiled Scheme files. These
@@ -280 +317 @@
  7. What's next?
 
+        If you find any bugs, or want to report a problem, please consider
+        using the "chicken-bug" tool to create a detailed bug report.
+
         If you have any more questions or problems (even the slightest
         problems, or the most stupid questions), then please subscribe
-        to the CHICKEN mailing list or contact me at:
-
-        <felix@call-with-current-continuation.org>.
+        to the "chicken-users" mailing list or contact me at:
+
+        <felix@call-with-current-continuation.org>
 
 

chicken/branches/release/apply-hack.x86-64.s

@@ -37 +37 @@
 
         .globl _C_do_apply_hack
+#ifndef __APPLE__
         .type _C_do_apply_hack, @function
-        
+#endif
+
 _C_do_apply_hack:
         subq $8, %rsp           /* force non-16 byte alignment */

chicken/branches/release/batch-driver.scm

@@ -39 +39 @@
 
 
-#{compiler
+(private
+ compiler
   compiler-arguments process-command-line dump-nodes dump-undefined-globals
   default-standard-bindings default-extended-bindings side-effecting-standard-bindings
@@ -61 +62 @@
   reorganize-recursive-bindings substitution-table simplify-named-call emit-unsafe-marker
   perform-closure-conversion prepare-for-code-generation compiler-source-file create-foreign-stub expand-foreign-lambda*
-  transform-direct-lambdas! source-filename compressed-literals literal-compression-threshold
+  transform-direct-lambdas! source-filename
   debugging-chicken bomb check-signature posq stringify symbolify build-lambda-list
   string->c-identifier c-ify-string words check-and-open-input-file close-checked-input-file fold-inner constant?
@@ -71 +72 @@
   topological-sort print-version print-usage initialize-analysis-database dump-exported-globals
   default-declarations units-used-by-default words-per-flonum default-debugging-declarations
-  default-profiling-declarations default-optimization-passes compressed-literals-initializer
+  default-profiling-declarations default-optimization-passes
   inline-max-size file-requirements use-import-table lookup-exports-file
   foreign-string-result-reserve parameter-limit eq-inline-operator optimizable-rest-argument-operators
@@ -78 +79 @@
   generate-code make-variable-list make-argument-list generate-foreign-stubs foreign-type-declaration
   export-list do-lambda-lifting compiler-warning export-file-name
-  foreign-argument-conversion foreign-result-conversion}
+  foreign-argument-conversion foreign-result-conversion)
 
 
@@ -129 +130 @@
         [hshrink (memq 'heap-shrinkage options)]
         [kwstyle (memq 'keyword-style options)]
-        [lcthreshold (memq 'compress-literals options)]
         [uses-units '()]
         [uunit (memq 'unit options)]
@@ -261 +261 @@
       (register-feature! 'case-insensitive)
       (case-sensitive #f) )
+    (when (memq 'compress-literals options)
+      (compiler-warning 'usage "`the -compress-literals' option is obsolete") )
     (when kwstyle
       (let ([val (option-arg kwstyle)])
@@ -267 +269 @@
               [(string=? "suffix" val) (keyword-style #:suffix)]
               [else (quit "invalid argument to `-keyword-style' option")] ) ) )
-    (when lcthreshold
-      (let ([t (option-arg lcthreshold)])
-        (set! literal-compression-threshold 
-          (or (string->number t)
-              (quit "invalid argument to `-compress-literals' option: ~A" t) ) ) ) )
     (set! verbose-mode verbose)
     (set! ##sys#read-error-with-line-number #t)
@@ -455 +452 @@
                                   ',(cdr pl) ) )
                               profile-lambda-list)
-                         (let ([is (fold (lambda (clf r)
-                                           `(let ([,(gensym) 
-                                                   (set! ,(car clf)
-                                                     (##sys#read-from-string ',(cdr clf)))])
-                                              ,r) )
-                                         '(##core#undefined) 
-                                         compressed-literals) ] )
-                           (if compressed-literals-initializer
-                               `((##core#set! ,compressed-literals-initializer 
-                                              (lambda () ,is) ) )
-                               (list is) ) )
                          exps0
                          (if (and (not unit-name) (not dynamic))
@@ -596 +582 @@
                               (print-db "final-analysis" '|8| db i)
                               (when (and ##sys#warnings-enabled (> (- (cputime) start-time) funny-message-timeout))
-                                (display "(don't despair - still compiling...)\n") )
+                                (display "(do not worry - still compiling...)\n") )
                               (when export-file-name
                                 (dump-exported-globals db export-file-name) )
@@ -603 +589 @@
 
                               (begin-time)
-                              (receive (node literals lambdas) (prepare-for-code-generation node3 db)
+                              (receive (node literals lliterals lambdas)
+                                  (prepare-for-code-generation node3 db)
                                 (end-time "preparation")
 
@@ -610 +597 @@
                                   (unless quiet
                                     (printf "generating `~A' ...~%" outfile) )
-                                  (generate-code literals lambdas out filename dynamic db)
+                                  (generate-code literals lliterals lambdas out filename dynamic db)
                                   (when outfile (close-output-port out)))
                                 (end-time "code generation")

chicken/branches/release/buildversion

@@ -1 @@
-2.732
+2.739

chicken/branches/release/c-backend.scm

@@ -37 +37 @@
 
 
-#{compiler
+(private compiler
   compiler-arguments process-command-line find-early-refs
   default-standard-bindings default-extended-bindings side-effecting-standard-bindings
@@ -44 +44 @@
   standard-bindings-that-never-return-false side-effect-free-standard-bindings-that-never-return-false
   installation-home optimization-iterations debugging cleanup
-  file-io-only namespace-table
+  file-io-only
   unit-name insert-timer-checks used-units inlining external-variables
   foreign-declarations emit-trace-info block-compilation line-number-database-size
@@ -52 +52 @@
   current-program-size line-number-database-2 foreign-lambda-stubs immutable-constants
   rest-parameters-promoted-to-vector inline-table inline-table-used constant-table constants-used 
-  mutable-constants
+  mutable-constants encode-literal
   broken-constant-nodes inline-substitutions-enabled
   direct-call-ids foreign-type-table first-analysis block-variable-literal?
@@ -74 +74 @@
   topological-sort print-version print-usage initialize-analysis-database
   generate-external-variables real-name real-name2 unique-id
-  default-declarations units-used-by-default words-per-flonum
+  default-declarations units-used-by-default words-per-flonum big-fixnum?
   foreign-string-result-reserve parameter-limit eq-inline-operator optimizable-rest-argument-operators
   membership-test-operators membership-unfold-limit valid-compiler-options valid-compiler-options-with-argument
   default-optimization-iterations generate-foreign-callback-header generate-foreign-callback-stub-prototypes
   generate-code make-variable-list make-argument-list generate-foreign-stubs foreign-type-declaration
-  foreign-argument-conversion foreign-result-conversion quick-namespace-list setup-quick-namespace-list
-  namespace-lookup compute-namespace-size}
+  foreign-argument-conversion foreign-result-conversion)
 
 (include "tweaks")
@@ -102 +101 @@
    (intersperse lst #\space) ) )
 
-(define (compute-namespace-size n)
-  37)                                   ; Arbitrary...
-
 
 ;;; Unique id/prefix:
@@ -113 +109 @@
 
 
-;;; Check name for namespace:
-;;
-;; This stuff is basically not needed. The namespace thingy once looked good, but
-;; can not replace a proper module system. It's still available, and might be
-;; handy for certain hacks.
-
-(define quick-namespace-list '())
-
-(define (setup-quick-namespace-list)
-  (for-each 
-   (lambda (ns)
-     (set! quick-namespace-list (append (cdr ns) quick-namespace-list)) )
-   namespace-table) )
-
-(define (namespace-lookup sym)
-  (and (memq sym quick-namespace-list)
-       (let loop ([nslist namespace-table] [i 0])
-         (cond [(null? nslist) (bomb "symbol not in namespace" sym)]
-               [(memq sym (cdar nslist)) i]
-               [else (loop (cdr nslist) (add1 i))] ) ) ) )
-
-
 ;;; Generate target code:
 
-(define (generate-code literals lambdas out source-file dynamic db)
+(define (generate-code literals lliterals lambdas out source-file dynamic db)
   (let ()
 
@@ -166 +140 @@
                (else (bomb "bad immediate")) ) )
 
-            ((##core#literal) (gen "lf[" (first params) #\]))
+            ((##core#literal) 
+             (let ((lit (first params)))
+               (if (vector? lit)
+                   (gen "((C_word)li" (vector-ref lit 0) ")") 
+                   (gen "lf[" (first params) #\])) ) )
 
             ((if)
@@ -482 +460 @@
                "   http://www.call-with-current-continuation.org" #t
                "   " (+ 1900 year) #\- (pad0 (add1 mon)) #\- (pad0 mday) #\space (pad0 hour) #\: (pad0 min) #t
-               "   " (chicken-version #t) #t
+               (string-intersperse
+                (map (cut string-append "   " <> "\n") 
+                     (string-split (chicken-version #t) "\n") ) 
+                "")
                "   command line: ")
           (gen-list compiler-arguments)
@@ -511 +492 @@
          used-units)
         (unless (zero? n)
-          (gen #t #t "static C_TLS C_word lf[" n"];") ) ) )
+          (gen #t #t "static C_TLS C_word lf[" n "];") )
+        (do ((i 0 (add1 i))
+             (llits lliterals (cdr llits)))
+            ((null? llits))
+          (let* ((ll (##sys#lambda-info->string (car llits)))
+                 (llen (string-length ll)))
+            (gen #t "static C_char C_TLS li" i "[]={C_lihdr(" 
+                 (arithmetic-shift llen -16) #\,
+                 (bitwise-and #xff (arithmetic-shift llen -8)) #\,
+                 (bitwise-and #xff llen)
+                 #\))
+            (do ((n 0 (add1 n)))
+                ((>= n llen))
+              (gen #\, (char->integer (string-ref ll n))) )
+            (gen "};")))))
   
     (define (prototypes)
@@ -572 +567 @@
         (for-each
          (lambda (s)
-           (gen #t "typedef void (C_cdecl *C_proc" s ")(C_word")
+           (gen #t "typedef void (*C_proc" s ")(C_word")
            (for-each gen (make-list s ",C_word"))
            (gen ") C_noret;") )
@@ -651 +646 @@
   
     (define (literal-frame)
-      (do ([i 0 (+ i 1)]
+      (do ([i 0 (add1 i)]
            [lits literals (cdr lits)] )
           ((null? lits))
-        (gen-lit (car lits) (sprintf "lf[~s]" i) #t) ) )
+        (gen-lit (car lits) (sprintf "lf[~s]" i)) ) )
 
     (define (bad-literal lit)
@@ -669 +664 @@
             [(##sys#immediate? lit) (bad-literal lit)]
             [(##core#inline "C_lambdainfop" lit) 0]
-            [(##sys#bytevector? lit)
-             (if (##sys#permanent? lit)
-                 0
-                 (+ 2 (words (##sys#size lit))) ) ]
+            [(##sys#bytevector? lit) (+ 2 (words (##sys#size lit))) ] ; drops "permanent" property!
             [(##sys#generic-structure? lit)
              (let ([n (##sys#size lit)])
@@ -681 +673 @@
             [else (bad-literal lit)] ) )
 
-    ;; This is currently not needed but will be handy for optimized literal lists/vector constructors...
-    (define (imm-lit lit)
-      (cond [(fixnum? lit) (string-append "C_fix(" (number->string lit) ")")]
-            [(eq? #t lit) "C_SCHEME_TRUE"]
-            [(eq? #f lit) "C_SCHEME_FALSE"]
-            [(null? lit) "C_SCHEME_END_OF_LIST"]
-            [(eq? lit (void)) "C_SCHEME_UNDEFINED"]
-            [(char? lit) (string-append "C_make_character(" (number->string (char->integer lit)) ")")]
-            [(eof-object? lit) "C_SCHEME_END_OF_FILE"]
-            [(and (number? lit) (eq? 'fixnum number-type))
-             (let ([flit (##sys#flo2fix lit)])
-               (compiler-warning 'type "coerced inexact literal number `~S' to fixnum `~S'" lit flit)
-               (string-append "C_fix(" (number->string flit) ")") ) ]
-            [else #f] ) )
-
-    (define (gen-lit lit to lf)
-      (cond ((fixnum? lit)
-             (if (eq? 'flonum number-type)
-                 (gen #t to "=C_flonum(C_heaptop," lit ");")
-                 (gen #t to "=C_fix(" lit ");") ) )
+    (define (gen-lit lit to)
+      ;; we do simple immediate literals directly to avoid a function call:
+      (cond ((and (fixnum? lit) (not (big-fixnum? lit)))
+             (gen #t to "=C_fix(" lit ");") )
             ((block-variable-literal? lit))
             ((eq? lit (void))
              (gen #t to "=C_SCHEME_UNDEFINED;") )
-            ((number? lit)
-             (cond [(eq? 'fixnum number-type)
-                    (let ([flit (##sys#flo2fix lit)])
-                      (compiler-warning 'type "coerced inexact literal number `~S' to fixnum `~S'" lit flit)
-                      (gen #t to "=C_fix(" flit ");") ) ]
-                   [else
-                    (let ((str (number->string lit)))
-                      (if (and (> (string-length str) 1) (char-alphabetic? (string-ref str 1))) ; inf or nan?
-                          (gen #t to "=C_flonum(C_heaptop, C_strtod(\"" lit "\", NULL));")
-                          (gen #t to "=C_flonum(C_heaptop," lit ");"))) ] ) )
             ((boolean? lit) 
              (gen #t to #\= (if lit "C_SCHEME_TRUE" "C_SCHEME_FALSE") #\;) )
             ((char? lit)
              (gen #t to "=C_make_character(" (char->integer lit) ");") )
+            ((symbol? lit)              ; handled slightly specially (see C_h_intern_in)
+             (let* ([str (##sys#slot lit 1)]
+                    [cstr (c-ify-string str)]
+                    [len (##sys#size str)] )
+               (gen #t to "=")
+               (gen "C_h_intern(&" to #\, len #\, cstr ");") ) )
             ((null? lit) 
              (gen #t to "=C_SCHEME_END_OF_LIST;") )
-            ((string? lit) (gen-string-like-lit to lit "C_static_string" #t))
-            ((##core#inline "C_lambdainfop" lit) (gen-string-like-lit to lit "C_static_lambda_info" #t))
-            ((pair? lit)
-             (cond ((and (proper-list? lit) (pair? (cdr lit)))
-                    (do ((len 0 (add1 len))
-                         (lst lit (cdr lst)) )
-                        ((null? lst)
-                         (gen #t to "=C_h_list(" len)
-                         (do ((k (sub1 len) (sub1 k)))
-                             ((< k 0) (gen ");" #t "C_drop(" len ");"))
-                           (gen ",C_pick(" k #\)) ) )
-                      (gen-lit (car lst) "tmp" #f)
-                      (gen #t "C_save(tmp);") ) )
-                   (else
-                    (gen-lit (car lit) "tmp" #f)
-                    (gen #t "C_save(tmp);")
-                    (gen-lit (cdr lit) "tmp" #f)
-                    (gen #t to "=C_h_pair(C_restore,tmp);") ) ) )
-            ((vector? lit) (gen-vector-like-lit to lit "C_h_vector"))
-            ((symbol? lit)
-             (let* ([str (##sys#slot lit 1)]
-                    [cstr (c-ify-string str)]
-                    [len (##sys#size str)] 
-                    [nsi (namespace-lookup lit)] )
-               (gen #t to "=")
-               (if nsi
-                   (if lf
-                       (gen "C_h_intern_in(&" to #\, len #\, cstr ",stable" nsi ");")
-                       (gen "C_intern_in(C_heaptop," len #\, cstr ",stable" nsi ");") )
-                   (if lf
-                       (gen "C_h_intern(&" to #\, len #\, cstr ");")
-                       (gen "C_intern(C_heaptop," len #\, cstr ");") ) ) ) )
             ((##sys#immediate? lit) (bad-literal lit))
-            ((##sys#bytevector? lit)
-             (if (##sys#permanent? lit)
-                 (gen-string-like-lit to lit "C_pbytevector" #f)
-                 (gen-string-like-lit to lit "C_bytevector" #t) ) )
-            ((##sys#generic-structure? lit) (gen-vector-like-lit to lit "C_h_structure"))
-            (else (bad-literal lit)) ) )
-
-    (define (gen-string-like-lit to lit conser top)
-      (let* ([len (##sys#size lit)]
+            ((##core#inline "C_lambdainfop" lit))
+            (else
+             (gen #t to "=C_decode_literal(C_heaptop,")
+             (gen-string-constant (encode-literal lit))
+             (gen ");") ) ) )
+
+    (define (gen-string-constant str)
+      (let* ([len (##sys#size str)]
              [ns (fx/ len 80)]
              [srest (modulo len 80)] )
-        (gen #t to #\= conser #\()
-        (when top (gen "C_heaptop,"))
-        (gen len #\,)
         (do ([i ns (sub1 i)]
              [offset 0 (+ offset 80)] )
             ((zero? i)
              (when (or (zero? len) (not (zero? srest)))
-               (gen (c-ify-string (string-like-substring lit offset len))) )
-             (gen ");") )
-          (gen (c-ify-string (string-like-substring lit offset (+ offset 80))) #t) ) ) )
-  
+               (gen (c-ify-string (string-like-substring str offset len))) ) )
+          (gen (c-ify-string (string-like-substring str offset (+ offset 80))) #t) ) ) )
+ 
     (define (string-like-substring s start end)
       (let* ([len (- end start)]
@@ -780 +715 @@
         (##sys#copy-bytes s s2 start 0 len)
         s2) )
-
-    (define (gen-vector-like-lit to lit conser)
-      (let ([len (##sys#size lit)])
-        (do ([j 0 (+ j 1)]
-             [n len (- n 1)] )
-            ((zero? n)
-             (gen #t to #\= conser #\( len)
-             (do ([j (- len 1) (- j 1)])
-                 ((< j 0) (gen ");" #t "C_drop(" len ");"))
-               (gen ",C_pick(" j #\)) ) )
-          (gen-lit (##sys#slot lit j) "tmp" #f)
-          (gen #t "C_save(tmp);") ) ) )
 
     (define (procedures)
@@ -852 +775 @@
                  (gen #t "C_word t" i #\;) ) )
            (cond [(eq? 'toplevel id) 
-                  (do ([i 0 (add1 i)]
-                       [ns namespace-table (cdr ns)] )
-                      ((null? ns))
-                    (gen #t "C_SYMBOL_TABLE *stable" i #\;) )
                   (let ([ldemand (fold (lambda (lit n) (+ n (literal-size lit))) 0 literals)]
                         [llen (length literals)] )
@@ -861 +780 @@
                          #t "if(toplevel_initialized) C_kontinue(t1,C_SCHEME_UNDEFINED);"
                          #t "else C_toplevel_entry(C_text(\"" topname "\"));")
-                    (do ([i 0 (add1 i)]
-                         [ns namespace-table (cdr ns)] )
-                        ((null? ns))
-                      (gen #t "stable" i "=C_new_symbol_table(\""
-                           (caar ns) "\"," (compute-namespace-size (cdar ns)) ");") )
                     (when disable-stack-overflow-checking
                       (gen #t "C_disable_overflow_check=1;") )
@@ -990 +904 @@
     (generate-foreign-callback-stubs foreign-callback-stubs db)
     (trampolines)
-    (setup-quick-namespace-list)
     (procedures)
     (emit-procedure-table-info lambdas source-file)
@@ -1181 +1094 @@
            (gen #t "/* from " (cleanup rname) " */") )
          (generate-foreign-callback-header "" stub)
-         (gen #\{ #t "C_word x, *a=C_alloc(" sizestr ");")
-         (gen #t "C_callback_adjust_stack_limits(a);")
+         (gen #\{ #t "C_word x,s=" sizestr ",*a=C_alloc(s);")
+         (gen #t "C_callback_adjust_stack(a,s);") ; make sure content is below stack_bottom as well
          (for-each
           (lambda (v t)
@@ -1377 +1290 @@
       ((byte) "C_fix((char)")
       ((unsigned-byte) "C_fix(0xff&(C_word)")
-      ((float double integer64) (sprintf "C_flonum(&~a," dest)) ;*** suboptimal for int64
+      ((float double) (sprintf "C_flonum(&~a," dest))   ;*** suboptimal for int64
       ((number) (sprintf "C_number(&~a," dest))
       ((nonnull-c-string c-string nonnull-c-pointer c-string* nonnull-c-string* 
@@ -1385 +1298 @@
       ((c-pointer) (sprintf "C_mpointer_or_false(&~a,(void*)" dest))
       ((integer integer32) (sprintf "C_int_to_num(&~a," dest))
+      ((integer64) (sprintf "C_a_double_to_num(&~a," dest))
       ((unsigned-integer unsigned-integer32) (sprintf "C_unsigned_int_to_num(&~a," dest))
       ((long) (sprintf "C_long_to_num(&~a," dest))
@@ -1413 +1327 @@
                 [else (err)] ) ]
              [else (err)] ) ) ) ) )
+
+
+;;; Encoded literals as strings, to be decoded by "C_decode_literal()"
+;; 
+;; - everything hardcoded, using the FFI would be the ugly, but safer method.
+
+(define (encode-literal lit)
+  (define getbits
+    (foreign-lambda* int ((scheme-object lit))
+      "
+#ifdef C_SIXTY_FOUR
+return((C_header_bits(lit) >> (24 + 32)) & 0xff);
+#else
+return((C_header_bits(lit) >> 24) & 0xff);
+#endif
+") )
+  (define getsize
+    (foreign-lambda* int ((scheme-object lit))
+      "return(C_header_size(lit));"))
+  (define (encode-size n)
+    ;; only handles sizes in the 24-bit range!
+    (string (integer->char (bitwise-and #xff (arithmetic-shift n -16)))
+            (integer->char (bitwise-and #xff (arithmetic-shift n -8)))
+            (integer->char (bitwise-and #xff n))))
+  (define (finish str)             ; can be taken out at a later stage
+    (string-append (string #\xfe) str))
+  (finish
+   (cond ((eq? #t lit) "\xff\x06\x01")
+         ((eq? #f lit) "\xff\x06\x00")
+         ((char? lit) (string-append "\xff\x0a" (encode-size (char->integer lit))))
+         ((null? lit) "\xff\x0e")
+         ((eof-object? lit) "\xff\x3e")
+         ((eq? (void) lit) "\xff\x1e")
+         ((and (fixnum? lit) (not (big-fixnum? lit)))
+          (string-append
+           "\xff\x01"
+           (string (integer->char (bitwise-and #xff (arithmetic-shift lit -24)))
+                   (integer->char (bitwise-and #xff (arithmetic-shift lit -16)))
+                   (integer->char (bitwise-and #xff (arithmetic-shift lit -8)))
+                   (integer->char (bitwise-and #xff lit)) ) ) )
+         ((number? lit)
+          (string-append "\x55" (number->string lit) "\x00") )
+         ((symbol? lit)
+          (let ((str (##sys#slot lit 1)))
+            (string-append 
+             "\x01" 
+             (encode-size (string-length str))
+             str) ) )
+         ((##sys#immediate? lit)
+          (bomb "invalid literal - can not encode" lit))
+         ((##core#inline "C_byteblockp" lit)
+          (##sys#string-append ; relies on the fact that ##sys#string-append doesn't check
+           (string-append
+            (string (integer->char (getbits lit)))
+            (encode-size (getsize lit)) )
+           lit) )
+         (else
+          (let ((len (getsize lit)))
+            (string-intersperse
+             (cons*
+              (string (integer->char (getbits lit)))
+              (encode-size len)
+              (list-tabulate len (lambda (i) (encode-literal (##sys#slot lit i)))))
+             ""))))) )

chicken/branches/release/c-platform.scm

@@ -37 +37 @@
 
 
-#{compiler
+(private compiler
   compiler-arguments process-command-line
   default-standard-bindings default-extended-bindings side-effecting-standard-bindings
@@ -69 +69 @@
   membership-test-operators membership-unfold-limit valid-compiler-options valid-compiler-options-with-argument
   target-include-file default-profiling-declarations
-  default-optimization-passes internal-bindings
+  default-optimization-passes internal-bindings big-fixnum?
   generate-code make-variable-list make-argument-list generate-foreign-stubs foreign-type-declaration
-  foreign-argument-conversion foreign-result-conversion}
+  foreign-argument-conversion foreign-result-conversion)
 
 
@@ -134 +134 @@
   '(debug output-file include-path heap-size stack-size unit uses keyword-style require-extension 
           inline-limit profile-name disable-warning emit-exports import
-    prelude postlude prologue epilogue nursery extend feature compress-literals
+    prelude postlude prologue epilogue nursery extend feature 
+    compress-literals                   ; DEPRECATED
     heap-growth heap-shrinkage heap-initial-size ffi-define ffi-include-path) )
 
@@ -868 +869 @@
                                 [(eq? number-type 'fixnum)]
                                 [n (first (node-parameters val))]
-                                [(fixnum? n)] )
+                                [(and (fixnum? n) (not (big-fixnum? n)))] )
                        (if (negative? n)
                            (make-node 

chicken/branches/release/chicken-bug.1

@@ -39 +39 @@
 has been passed on the command line, then a description of the problem
 is read from standard input, until EOF (CTRL-D) is read.
+
+The report will be automatically e-mailed to the CHICKEN maintainers,
+if an SMTP connection can be established. If no connection can be
+made, the bug report will be written to a file in the current directory,
+which should be sent to CHICKEN maintainers as it contains various
+useful bits of information that make it easier to classify the 
+problem described.
+
 Bug reports should be as detailed as possible. It is also very helpful
 to include code that reproduces the problem. The more detailed the input
@@ -46 +54 @@
 .SH BUGS
 Submit bug reports by e-mail to
-.I felix@call-with-current-continuation.org
+.I chicken-janitors@nongnu.org
 
 .SH AUTHOR

chicken/branches/release/chicken-bug.scm

@@ -2 +2 @@
 
 
-(use posix utils)
+(use srfi-13 posix utils tcp extras)
 
 
@@ -18 +18 @@
 (define-constant +bug-report-file+ "chicken-bug-report.~a-~a-~a")
 
-(define-constant +destinations+ 
+(define-constant +fallbackdestinations+ 
   "chicken-janitors@nongnu.org\nchicken-hackers@nongnu.org\nchicken-users@nongnu.org\nfelix@call-with-current-continuation.org")
 
+(define-constant +destination+ "chicken-janitors@nongnu.org")
+(define-constant +mxservers+ (list "mx10.gnu.org" "mx20.gnu.org"))
 
 (define-foreign-variable +cc+ c-string "C_TARGET_CC")
@@ -28 +30 @@
 
 (define (collect-info)
+  (print "\n--------------------------------------------------\n")
   (print "This is a bug report generated by chicken-bug(1).\n")
   (print "Date:\t" (seconds->string (current-seconds)) "\n")
@@ -36 +39 @@
   (print "\tsoftware version:\t" (software-version))
   (print "\tbuild platform:\t" (build-platform) "\n")
-  (print "CHICKEN version is:\t" (chicken-version #t) "\n")
+  (print "CHICKEN version is:\n" (chicken-version #t) "\n")
   (print "Home directory:\t" (chicken-home) "\n")
   (printf "Include path:\t~s~%~%" ##sys#include-pathnames)
@@ -68 +71 @@
   -                    read description from standard input
 
+Generates a bug report file from user input or alternatively
+from the contents of files given on the command line.
+
 EOF
 ) 
@@ -77 +83 @@
 This is the CHICKEN bug report generator. Please enter a detailed
 description of the problem you have encountered and enter CTRL-D (EOF)
-once you have finished. Presss CTRL-C to abort the program:
+once you have finished. Press CTRL-C to abort the program. You can
+also pass the description from a file (just abort now and re-invoke
+"chicken-bug" with one or more input files given on the command-line)
 
 EOF
@@ -112 +120 @@
     (unless files
       (set! msg (string-append msg "\n\n" (user-input))))
+    (newline)
     (match-let ((#(_ _ _ day mon yr _ _ _ _) (seconds->local-time (current-seconds))))
-      (let* ((file (sprintf +bug-report-file+ (+ 1900 yr) (justify mon) (justify day)))
-             (port (if stdout (current-output-port) (open-output-file file))))
-        (with-output-to-port port
-          (lambda ()
-            (print msg)
-            (collect-info) ) )
-        (unless stdout
-          (close-output-port port)
-          (print "\nA bug report has been written to `" file "'. Please send it to")
-          (print "one of the following addresses:\n\n" +destinations+) ) ) ) ) )
+        (if stdout
+            (begin
+                (print msg)
+                (collect-info))
+            (try-mail
+                +mxservers+
+                (sprintf +bug-report-file+ (+ 1900 yr) (justify mon) (justify day))
+                (mail-headers)
+                (with-output-to-string
+                    (lambda ()
+                        (print msg)
+                        (collect-info))))))))
+      ;(let* ((file (sprintf +bug-report-file+ (+ 1900 yr) (justify mon) (justify day)))
+        ;     (port (if stdout (current-output-port) (open-output-file file))))
+        ;(with-output-to-port port
+        ;  (lambda ()
+        ;    (print msg)
+        ;    (collect-info) ) )
+        ;(unless stdout
+        ;  (close-output-port port)
+        ;  (print "\nA bug report has been written to `" file "'. Please send it to")
+        ;  (print "one of the following addresses:\n\n" +destinations+) ) ) ) ) )
+
+(define (try-mail servs fname hdrs msg)
+    (if (null? servs)
+        (begin
+            (with-output-to-file fname
+                (lambda () (print msg)))
+            (print "\nCould not send mail automatically!\n\nA bug report has been written to `" fname "'.  Please send it to")
+            (print "one of the following addresses:\n\n" +fallbackdestinations+))
+        (or (send-mail (car servs) msg hdrs fname)
+            (try-mail (cdr servs) fname hdrs msg))))
+
+(define (mail-date-str tm)
+    (string-append
+        (case (vector-ref tm 6)
+            ((0) "Sun, ")
+            ((1) "Mon, ")
+            ((2) "Tue, ")
+            ((3) "Wed, ")
+            ((4) "Thu, ")
+            ((5) "Fri, ")
+            ((6) "Sat, "))
+        (string-pad (number->string (vector-ref tm 3)) 2 #\0)
+        (case (vector-ref tm 4)
+            ((0)  " Jan ")
+            ((1)  " Feb ")
+            ((2)  " Mar ")
+            ((3)  " Apr ")
+            ((4)  " May ")
+            ((5)  " Jun ")
+            ((6)  " Jul ")
+            ((7)  " Aug ")
+            ((8)  " Sep ")
+            ((9)  " Oct ")
+            ((10) " Nov ")
+            ((11) " Dec "))
+        (number->string (+ 1900 (vector-ref tm 5)))
+        " "
+        (string-pad (number->string (vector-ref tm 2)) 2 #\0)
+        ":"
+        (string-pad (number->string (vector-ref tm 1)) 2 #\0)
+        ":"
+        (string-pad (number->string (vector-ref tm 0)) 2 #\0)
+        " +0000"))
+
+(define (mail-headers)
+    (string-append
+        "Date: " (mail-date-str (seconds->utc-time (current-seconds))) "\r\n"
+        "From: \"chicken-bug user\" <chicken-bug-command@callcc.org>\r\n"
+        "To: \"Chicken Janitors\" <chicken-janitors@nongnu.org>\r\n"
+        "Subject: Automated chicken-bug output -- "))
+
+(define (mail-read i o)
+    (let ((v   (condition-case (read-line i)
+                   (var () (close-input-port i) (close-output-port o) #f))))
+        (if v
+            (if (char-numeric? (string-ref v 0))
+                (string->number (substring v 0 3))
+                (mail-read i o))
+            #f)))
+
+(define (mail-write i o m)
+    (let ((v   (condition-case (display m o)
+                   (var () (close-input-port i) (close-output-port o) #f))))
+        (if v
+            (mail-read i o)
+            #f)))
+
+(define (mail-check i o v e k)
+    (if (and v (= v e))
+        #t
+        (begin
+            (close-input-port i)
+            (close-output-port o)
+            (k #f))))
+
+(define (send-mail serv msg hdrs fname)
+  (print "connecting to " serv " ...")
+    (receive (i o)
+        (tcp-connect serv 25)
+        (call-with-current-continuation
+            (lambda (k)
+                (mail-check i o (mail-read i o) 220 k)
+                (mail-check i o (mail-write i o "HELO callcc.org\r\n") 250 k)
+                (mail-check i o (mail-write i o "MAIL FROM:<chicken-bug-command@callcc.org>\r\n") 250 k)
+                (mail-check i o (mail-write i o "RCPT TO:<chicken-janitors@nongnu.org>\r\n") 250 k)
+                (mail-check i o (mail-write i o "DATA\r\n") 354 k)
+                (mail-check i o (mail-write i o (string-append hdrs fname "\r\n\r\n" msg "\r\n.\r\n")) 250 k)
+                (display "QUIT" o)
+                (close-input-port i)
+                (close-output-port o)
+                (print "Bug report successfully mailed to the Chicken maintainers.\nThank you very much!\n\n")
+                #t))))
 
 (main (command-line-arguments))

chicken/branches/release/chicken-ffi-macros.scm

@@ -361 +361 @@
      (cons ',new args) ) )
 
-(define-deprecated-macro foreign-callback-lambda foreign-safe-lambda)
-(define-deprecated-macro foreign-callback-lambda* foreign-safe-lambda*)
-(define-deprecated-macro foreign-callback-wrapper foreign-safe-wrapper)
-
 
 ;;; Not for general use, yet

chicken/branches/release/chicken-more-macros.scm

@@ -363 +363 @@
    (##sys#check-syntax 'define-constant form '(symbol _))
    `(##core#define-constant ',(car form) ,(cadr form)) ) )
-
-(##sys#register-macro-2                 ; DEPRECATED
- 'critical-section
- (lambda (form)
-   `(##sys#dynamic-wind
-        ##sys#disable-interrupts
-        (lambda () ,@form)
-        ##sys#enable-interrupts) ) )
 
 (##sys#register-macro-2

chicken/branches/release/chicken-setup.scm

@@ -44 +44 @@
           create-directory test-compile try-compile copy-file run-verbose
           required-chicken-version required-extension-version
-          cross-chicken ##sys#current-source-filename) )
+          cross-chicken ##sys#current-source-filename host-extension) )
+
+
+;;; Constants, variables and parameters
 
 #>
@@ -118 +121 @@
   '("-help" "-uninstall" "-list" "-run" "-repository" "-program-path" "-version" "-script"
     "-fetch" "-host" "-proxy" "-keep" "-verbose" "-csc-option" "-dont-ask" "-no-install" "-docindex" "-eval"
-    "-debug" "-ls" "-release" "-test" "-fetch-tree" "-tree" "-svn" "-local" "-destdir" "-revision") )
+    "-debug" "-ls" "-release" "-test" "-fetch-tree" "-tree" "-svn" "-local" "-destdir" "-revision"
+    "-host-extension") )
 
 (define-constant short-options
-  '(#\h #\u #\l #\r #\R #\P #\V #\s #\f #\H #\p #\k #\v #\c #\d #\n #\i #\e #\D #f #f #\t #f #f #f #f #f #f) )
+  '(#\h #\u #\l #\r #\R #\P #\V #\s #\f #\H #\p #\k #\v #\c #\d #\n #\i #\e #\D #f #f #\t #f #f #f #f #f #f
+    #f) )
 
 (define *installed-executables* 
@@ -134 +139 @@
   (or (and-let* ((p (getenv "CHICKEN_PREFIX")))
         (make-pathname p "bin") )
-      (getenv "CHICKEN_HOME")
       (foreign-value "C_INSTALL_BIN_HOME" c-string) ) )
 
@@ -154 +158 @@
 (define program-path (make-parameter *install-bin-path*))
 (define (cross-chicken) (##sys#fudge 39))
-
-(define create-directory/parents
-  (let ([create-directory create-directory])
-    (lambda (dir)
-      (let loop ([dir dir])
-        (when (and dir (not (directory? dir)))
-          (loop (pathname-directory dir))
-          (create-directory dir))) ) ) )
-
-(define create-directory
-  (let ()
-    (define (verb dir)
-      (when (setup-verbose-flag) (printf "  creating directory `~a'~%~!" dir)) )
-    (if *windows-shell*
-        (lambda (dir)
-          (verb dir)
-          (create-directory/parents dir) ) 
-        (lambda (dir)
-          (verb dir)
-          (system* "mkdir -p ~a" (quotewrap dir) ) ) ) ) )
-
-(define (quotewrap str)
-  (if (or (string-any char-whitespace? str)
-          (and *windows-shell* (string-any (lambda (c) (char=? c #\/)) str)))
-      (string-append "\"" str "\"") 
-      str) )
+(define host-extension (make-parameter #f))
 
 (define setup-root-directory (make-parameter #f))
@@ -189 +168 @@
 (define *remove-command* (if *windows-shell* "del /Q /S" "rm -fr"))
 (define *move-command* (if *windows-shell* 'move 'mv))
-
 (define *gzip-program* 'gzip)
 (define *tar-program* 'tar)
-
 (define *fetch-only* #f)
 (define *temporary-directory* #f)
@@ -217 +194 @@
 
 
+;;; File-system routines
+
+(define create-directory/parents
+  (let ([create-directory create-directory])
+    (lambda (dir)
+      (let loop ([dir dir])
+        (when (and dir (not (directory? dir)))
+          (loop (pathname-directory dir))
+          (create-directory dir))) ) ) )
+
+(define create-directory
+  (let ()
+    (define (verb dir)
+      (when (setup-verbose-flag) (printf "  creating directory `~a'~%~!" dir)) )
+    (if *windows-shell*
+        (lambda (dir)
+          (verb dir)
+          (create-directory/parents dir) ) 
+        (lambda (dir)
+          (verb dir)
+          (system* "mkdir -p ~a" (quotewrap dir) ) ) ) ) )
+
+
+;;; Helper stuff
+
+(define (quotewrap str)
+  (if (or (string-any char-whitespace? str)
+          (and *windows-shell* (string-any (lambda (c) (char=? c #\/)) str)))
+      (string-append "\"" str "\"") 
+      str) )
+
 (define (abort-setup)
   (*abort-hook* #f) )
@@ -292 +300 @@
   `(run (csc ,@explist) ) )
 
+
+;;; "make" functionality
+
 (define (make:find-matching-line str spec)
   (let ((match? (lambda (s) (string=? s str))))
@@ -301 +312 @@
                                (list (car line))
                                (car line))))
-               (if (ormap match? names)
+               (if (any match? names)
                    line
                    (loop (cdr lines)))))))))
@@ -311 +322 @@
   (and (or (list? spec) (make:form-error "specification is not a list" spec))
        (or (pair? spec) (make:form-error "specification is an empty list" spec))
-       (andmap
+       (every
         (lambda (line)
           (and (or (and (list? line) (<= 2 (length line) 3))
@@ -317 +328 @@
                (or (or (string? (car line))
                        (and (list? (car line))
-                            (andmap string? (car line))))
+                            (every string? (car line))))
                    (make:form-error "line does not start with a string or list of strings" line))
                (let ((name (car line)))
                  (or (list? (cadr line))
                      (make:line-error "second part of line is not a list" (cadr line) name)
-                     (andmap (lambda (dep)
+                     (every (lambda (dep)
                                (or (string? dep)
                                    (make:form-error "dependency item is not a string" dep)))
@@ -333 +344 @@
 (define (make:check-argv argv)
   (or (string? argv)
-      (andmap string? argv)
+      (every string? argv)
       (error "argument is not a string or string list" argv)))
 
@@ -358 +369 @@
                       (let ((reason
                              (or (not date)
-                                 (ormap (lambda (dep)
+                                 (any (lambda (dep)
                                           (let ((dep2 (fixmaketarget dep)))
                                             (unless (file-exists? dep2)
@@ -404 +415 @@
   (case-lambda
    ((spec) (make:make/proc/helper spec '()))
-   ((spec argv) (make:make/proc/helper spec argv))))
-
-(define-macro (make spec #!optional (argv '()))
+   ((spec argv)
+    (make:make/proc/helper
+     spec
+     (if (vector? argv)
+         (vector->list argv)
+         argv) ) ) ) )
+
+(define-macro (make spec #!optional (argv ''()))
   (let ((form-error (lambda (s . p) (apply error s spec p))))
     (and (or (list? spec) (form-error "illegal specification (not a sequence)"))
          (or (pair? spec) (form-error "empty specification"))
-         (andmap
+         (every
           (lambda (line)
             (and (or (and (list? line) (>= (length line) 2))
@@ -428 +444 @@
                              spec))
                 ,argv)))
+
+
+;;; Create new repository file
+
+(define (create-repository-file eggdir)
+  (let ((eggs 
+         (filter-map
+          (lambda (d)
+            (and-let* ((mf (or (file-exists? (make-pathname d d "meta"))
+                               (file-exists? (make-pathname (list d "trunk") d "meta")))))
+              (display mf (current-error-port))
+              (newline (current-error-port))
+              (cons d (with-input-from-file mf read)) ) )
+          (directory eggdir))) )
+    (write-char #\()
+    (for-each
+     (lambda (e)
+       (let ((needs (assq 'needs (cdr e))))
+         (pp `(,(string->symbol (car e))
+               ()
+               ,(conc e ".egg")
+               ,@(if needs (cdr needs) '())))))
+     *eggs*) 
+    (write-char #\))))
+
+
+;;; Show usage information
 
 (define (usage)
@@ -453 +496 @@
   -e  -eval EXPRESSION           evaluate expression
   -t  -test                      run test suite, if it exists
+      -host-extension            compile any extensions in "host" mode
       -ls EXTENSION              list installed files for extension
       -fetch-tree                download and show repository catalog
+      -create-tree               create repository catalog from SVN checkout
       -tree FILENAME             use repository catalog from given file
       -svn URL                   fetch extension from subversion repository
@@ -467 +512 @@
   )
   (exit) )
+
+
+;;; Processing setup scripts
 
 (define (make-setup-info-pathname fn #!optional (rpath (repository-path)))
@@ -620 +668 @@
      ("a" (if *windows-shell* "lib" "a"))
      (x x) ) ) )
+
+
+;;; Installation
 
 (define (install-extension id files #!optional (info '()))
@@ -719 +770 @@
     (delete-file* (make-setup-info-pathname (->string ext)))))
 
+
+;;; More helper stuff
+
 (define (repo-path #!optional ddir?)
   (let ((p (if (and ddir? *destdir*)
@@ -796 +850 @@
    (sprintf "#ifdef __cplusplus~%extern \"C\"~%#endif~%char ~a();~%int main() { ~a(); return 0; }~%" proc proc)
    ldflags: (conc "-l" name) ) )
+
+
+;;; HTTP repository access
 
 (define (find-header name)
@@ -913 +970 @@
            (x (error "(internal) invalid host" x)) ) ) ) )
 
+(define (requirements reqs)
+  (fold 
+   (lambda (r reqs)
+     (cond ((symbol? r)
+            (let ((node (assq r *repository-tree*)))
+              (cond (node (append (requirements (cdddr node)) (list (car node)) reqs))
+                    ((memq r ##sys#core-library-modules) reqs)
+                    (else (error "broken dependencies: extension does not exist" r) ) ) ) )
+           (else (error "invalid requirement spec" r))))
+   '() 
+   reqs) )
+
 (define (fetch-file ext)
-  (define (requirements reqs)
-    (fold 
-     (lambda (r reqs)
-       (cond ((symbol? r)
-              (let ((node (assq r *repository-tree*)))
-                (cond (node (append (requirements (cdddr node)) (list (car node)) reqs))
-                      ((memq r ##sys#core-library-modules) reqs)
-                      (else (error "Broken dependencies: extension does not exist" r) ) ) ) )
-             (else (requirements (eval-req r) )) ) ) 
-     '() 
-     reqs) )
   (and (or *dont-ask*
            (yes-or-no?
@@ -943 +1001 @@
               (let ((a (and *repository-tree* (assq (string->symbol ext) *repository-tree*))))
                 (when *debug* (printf "catalog entry: ~s~%" a))
-                (cond (a (let ((reqs (remove extension-info (delete-duplicates (requirements (cdddr a)) eq?))))
+                (cond (a (let ((reqs (remove extension-information (delete-duplicates (requirements (cdddr a)) eq?))))
                            (when (pair? reqs)
                              (print "downloading required extensions " reqs " ...")
@@ -952 +1010 @@
                       (else
                        (error "Extension does not exist in the repository" ext)) ) ) ) ) ) )
+
+
+;;; Main entry point
 
 (define (install filename)
@@ -977 +1038 @@
              (when df
                (loop (pathname-file filename))))))))
+
+
+;;; Documentation index generation
 
 (define (doc-index #!optional ddir?)
@@ -1107 +1171 @@
           (display "</tbody></table></body></font></html>\n") ) ) ) ) )
 
+
+;;; Output stuff
+
 (define (format-string str cols #!optional right (padc #\space))
   (let* ((len (string-length str))
@@ -1114 +1181 @@
         (string-append str pad) ) ) )
 
+(define get-terminal-width
+  (let ((default-width 78)) ; Standard default terminal width
+    (lambda ()
+      (let ((cop (current-output-port)))
+        (if (terminal-port? cop)
+            (with-exception-handler
+             (lambda (_) 
+               default-width)
+             (lambda ()
+               (call-with-values
+                   (lambda () (terminal-size cop))
+                   (lambda (_ cols) cols))))
+             default-width)))))
+
 (define (list-installed)
-  (for-each
-   (lambda (f)
-     (and-let* ((info (extension-information f)))
-       (print (format-string (->string f) 32)
-              " "
-              (format-string 
-               (or (and-let* ((v (assq 'version info)))
-                     (sprintf "Version: ~A" (cadr v)) )
-                   "") 
-               32 #t)
-              (or (and-let* ((r (assq 'release info)))
-                    (sprintf " (Release ~a)" (cadr r)) )
-                  "") ) ) )
-   (sort (delete-duplicates
-          (grep "^[^.].*\\.*$" (map pathname-file (directory (repository-path)))) string=?)
-         string<?) ) )
+  (let* ((line-width (get-terminal-width))
+         (eggs (sort (delete-duplicates
+                      (grep "^[^.].*\\.*$"
+                            (map pathname-file
+                                 (directory (repository-path)))) string=?)
+                     string<?)) 
+         (version-number-width
+          (fold
+           (lambda (egg maxlen)
+             (max maxlen
+                  (or (and-let* ((info (extension-information egg))
+                                 (v (assq 'version info)))
+                                (string-length (->string (cadr v))))
+                      0))) 0 eggs))
+         (version-width (fx+ version-number-width 9))
+         (release-width 22)
+         (name-width (fxmax (- line-width version-width release-width 3) 12)))
+    (for-each
+     (lambda (f)
+       (and-let* ((info (extension-information f)))
+                 (print (format-string (->string f) name-width)
+                        " "
+                        (format-string 
+                         (or (and-let*
+                              ((v (assq 'version info)))
+                              (sprintf "Version: ~A"
+                                       (format-string (->string (cadr v))
+                                                      version-number-width #t)))
+                             "") 
+                         version-width #t)
+                        " "
+                        (or (and-let* ((r (assq 'release info)))
+                                      (sprintf "(Release ~a)" (cadr r)) )
+                            "") ) ) )
+     eggs)))
+
+
+;;; Command line processing
 
 (define (main args)
@@ -1259 +1362 @@
          (set! *dont-ask* #t)
          (loop more) )
+        (("-create-tree" dir . more)
+         (create-repository-file dir)
+         (set! anydone #t)
+         (loop more) )
         (("-fetch-tree" . more)
          (set! *fetch-tree-only* #t)
          (set! anydone #t)
+         (loop more) )
+        (("-host-extension" . more)
+         (host-extension #t)
          (loop more) )
         (((or "-run" "-script" "-proxy" "-host" "-csc-option" "-ls" "-destdir" "-tree" "-local" "-svn" "-eval"))
@@ -1297 +1407 @@
            (build-doc-index) )
          (unless *keep-stuff*
-             (for-each 
-              (lambda (f)
-                (run (,*remove-command* ,(quotewrap f))) )
-              *fetched-eggs*))
+           (for-each 
+            (lambda (f)
+              (run (,*remove-command* ,(quotewrap f))) )
+            *fetched-eggs*))
          #f) ) ) ) )
 

chicken/branches/release/chicken.1

@@ -53 +53 @@
 .B \-check\-syntax
 Aborts compilation process after macro-expansion and syntax checks.
-
-.TP
-.B \-compress\-literals\ threshold
-Compiles quoted literals that exceed the size 
-.BI threshold
-as strings
-and parse the strings at run-time. This reduces the size of the code and
-speeds up compile-times of the host C compiler, but has a small run-time
-performance penalty. The size of a literal is computed by counting recursively the objects
-in the literal, so a vector counts as 1 plus the count of the elements,
-a pair counts as the counts of the car and the cdr, respectively.
-All other objects count 1.
 
 .TP
@@ -222 +210 @@
 .I \;
 \.
-The environment variable
-.B CHICKEN_HOME
-is also considered as a search path.
 
 .TP
@@ -423 +408 @@
 
 .TP
-.B CHICKEN_HOME
-Should contain the pathname where support- and include-files can be found.
+.B CHICKEN_PREFIX
+Is used as a prefix directory for support files, include-files and libraries.
 
 .TP

chicken/branches/release/chicken.h

@@ -280 +280 @@
 #define ___byte_vector      unsigned char *
 #define ___symbol           char *
-#define ___callback
 #define ___safe
 #define ___declare(x, y)
@@ -981 +980 @@
 #define C_a_int_to_num(ptr, n, i)       C_int_to_num(ptr, i)
 #define C_a_unsigned_int_to_num(ptr, n, i)  C_unsigned_int_to_num(ptr, i)
+#define C_a_double_to_num(ptr, n)       C_double_to_number(C_flonum(ptr, n))
 #define C_a_i_vector                    C_vector
 #define C_list                          C_a_i_list
@@ -1083 +1083 @@
 #define C_u_i_bit_setp(x, i)            C_mk_bool((C_unfix(x) & (1 << C_unfix(i))) != 0)
 
+#ifdef C_BIG_ENDIAN
+# ifdef C_SIXTY_FOUR
+#  define C_lihdr(x, y, z)              ((C_LAMBDA_INFO_TYPE >> 56) & 0xff), \
+                                        0, 0, 0, 0, (x), (y), (z)
+# else
+#  define C_lihdr(x, y, z)              ((C_LAMBDA_INFO_TYPE >> 24) & 0xff), \
+                                        (x), (y), (z)
+# endif
+#else
+# ifdef C_SIXTY_FOUR
+#  define C_lihdr(x, y, z)              (z), (y), (x), 0, 0, 0, 0, \
+                                        ((C_LAMBDA_INFO_TYPE >> 56) & 0xff)
+# else
+#  define C_lihdr(x, y, z)              (z), (y), (x), \
+                                        ((C_LAMBDA_INFO_TYPE >> 24) & 0xff)
+# endif
+#endif
+
 #define C_end_of_main
 
@@ -1117 +1135 @@
 
 C_varextern C_TLS void (C_fcall *C_restart_trampoline)(void *proc) C_regparm C_noret;
+C_varextern C_TLS void (*C_pre_gc_hook)(int mode);
 C_varextern C_TLS void (*C_post_gc_hook)(int mode, long ms);
 C_varextern C_TLS void (*C_panic_hook)(C_char *msg);
@@ -1161 +1180 @@
 C_fctexport C_word C_fcall C_callback(C_word closure, int argc);
 C_fctexport C_word C_fcall C_callback_wrapper(void *proc, int argc);
-C_fctexport void C_fcall C_callback_adjust_stack_limits(C_word *base);
+C_fctexport void C_fcall C_callback_adjust_stack_limits(C_word *base); /* DEPRECATED */
+C_fctexport void C_fcall C_callback_adjust_stack(C_word *base, int size);
 C_fctexport void CHICKEN_parse_command_line(int argc, char *argv[], C_word *heap, C_word *stack, C_word *symbols);
 C_fctexport void C_fcall C_toplevel_entry(C_char *name) C_regparm;
@@ -1504 +1524 @@
 #endif
 
+C_fctexport C_word C_fcall C_decode_literal(C_word **ptr, C_char *str) C_regparm;
+
 /* defined in eval.scm: */
 C_fctexport  void  CHICKEN_get_error_message(char *buf,int bufsize);

chicken/branches/release/chicken.scm

@@ -39 +39 @@
 
 
-#{compiler
+(private compiler
   compiler-arguments
   default-standard-bindings default-extended-bindings side-effecting-standard-bindings
@@ -71 +71 @@
   membership-test-operators membership-unfold-limit valid-compiler-options valid-compiler-options-with-argument
   generate-code make-variable-list make-argument-list generate-foreign-stubs foreign-type-declaration
-  foreign-argument-conversion foreign-result-conversion}
+  foreign-argument-conversion foreign-result-conversion)
 
 

chicken/branches/release/compiler.scm

@@ -64 +64 @@
 ; (always-bound {<name>})
 ; (foreign-declare {<string>})
-; (foreign-parse {<string>})
 ; (block)
 ; (separate)
 ; (run-time-macros)
 ; (export {<name>})
-; (compress-literals [<threshold>])
 ; (safe-globals)
-; (namespace <name> {<symbol})
 ; (custom-declare (<tag> <name> <filename> <arg> ...) <string> ...)
 ; (data <tag1> <exp1> ...)
@@ -252 +249 @@
 
 
-#{compiler
+(private compiler
   compiler-arguments process-command-line explicit-use-flag inline-list not-inline-list
   default-standard-bindings default-extended-bindings side-effecting-standard-bindings
@@ -270 +267 @@
   broken-constant-nodes inline-substitutions-enabled loop-lambda-names expand-profile-lambda
   profile-lambda-list profile-lambda-index emit-profile expand-profile-lambda
-  direct-call-ids foreign-type-table first-analysis callback-names namespace-table disabled-warnings
+  direct-call-ids foreign-type-table first-analysis callback-names disabled-warnings
   initialize-compiler canonicalize-expression expand-foreign-lambda update-line-number-database! scan-toplevel-assignments
   compiler-warning import-table use-import-table compiler-macro-table compiler-macros-enabled
@@ -287 +284 @@
   pprint-expressions-to-file foreign-type-check estimate-foreign-result-size scan-used-variables scan-free-variables
   topological-sort print-version print-usage initialize-analysis-database export-list csc-control-file
-  estimate-foreign-result-location-size compressed-literals-initializer unused-variables
+  estimate-foreign-result-location-size unused-variables
   expand-foreign-callback-lambda default-optimization-passes default-optimization-passes-when-trying-harder
   units-used-by-default words-per-flonum disable-stack-overflow-checking
@@ -293 +290 @@
   membership-test-operators membership-unfold-limit valid-compiler-options valid-compiler-options-with-argument
   make-random-name final-foreign-type real-name-table real-name set-real-name! safe-globals-flag
-  location-pointer-map literal-compression-threshold compressed-literals compressable-literal
+  location-pointer-map
   lookup-exports-file undefine-shadowed-macros process-lambda-documentation emit-syntax-trace-info
   generate-code make-variable-list make-argument-list generate-foreign-stubs foreign-type-declaration
   process-custom-declaration do-lambda-lifting file-requirements emit-closure-info export-file-name
-  foreign-argument-conversion foreign-result-conversion foreign-type-convert-argument foreign-type-convert-result}
+  foreign-argument-conversion foreign-result-conversion foreign-type-convert-argument foreign-type-convert-result
+  big-fixnum?)
 
 (eval-when (compile eval)
@@ -332 +330 @@
 (define-constant real-name-table-size 997)
 (define-constant import-table-size 997)
-(define-constant default-literal-compression-threshold 50)
 (define-constant default-inline-max-size 10)
 
@@ -362 +359 @@
 (define source-filename #f)
 (define export-list #f)
-(define compressed-literals '())
-(define literal-compression-threshold #f)
-(define compressed-literals-initializer #f)
 (define safe-globals-flag #f)
 (define explicit-use-flag #f)
 (define disable-stack-overflow-checking #f)
-(define namespace-table '())
 (define require-imports-flag #f)
 (define emit-unsafe-marker #f)
@@ -483 +476 @@
            => (lambda (val) (walk (car val) ae me dest)) ]
           [(and inline-table-used (##sys#hash-table-ref inline-table x))
-           => (lambda (val) (walk val ae me dest)) ]
+           => (lambda (val)
+                (walk val ae me dest)) ]
           [(assq x foreign-variables)
            => (lambda (fv) 
@@ -530 +524 @@
                       (walk xexpanded ae me dest) ]
                      [(and inline-table-used (##sys#hash-table-ref inline-table name))
-                      => (lambda (val) (walk (cons val (cdr x)) ae me dest)) ]
+                      => (lambda (val)
+                           (walk (cons val (cdr x)) ae me dest)) ]
                      [else
                       (case name
@@ -544 +539 @@
                         ((quote)
                          (##sys#check-syntax 'quote x '(quote _))
-                         (let* ([lit (cadr x)] 
-                                [cf (and literal-compression-threshold
-                                         (compressable-literal lit literal-compression-threshold) ) ] )
-                           (if cf
-                               (let ([var (gensym 'lf)])
-                                 (debugging 'o "compressing literal of size" cf)
-                                 (set! compressed-literals
-                                   (alist-cons var (write-to-string lit) compressed-literals) )
-                                 (set! always-bound (cons var always-bound))
-                                 (set! block-globals (cons var block-globals))
-                                 var)
-                               x) ) )
+                         x)
 
                         ((##core#check)
@@ -1160 +1144 @@
           (set! block-globals (lset-difference eq? block-globals syms))
           (set! export-list (lset-union eq? syms (or export-list '())))))
-       ((compress-literals)
-        (set! literal-compression-threshold 
-          (or (and (pair? (cdr spec)) (number? (cadr spec)) (cadr spec))
-              default-literal-compression-threshold) ) 
-        (when (and (list? spec) (= 3 (length spec)))
-          (set! compressed-literals-initializer (third spec)) ) )
        ((emit-exports)
         (cond ((null? (cdr spec))
@@ -1185 +1163 @@
                 n
                 (quit "invalid argument to `inline-limit' declaration" spec) ) ) ) )
-       ((namespace)
-        (check-decl spec 2)
-        (let* ([syms (cdr spec)]
-               [ns (car syms)] )
-          (if (every symbol? syms)
-              (let ([oldsyms (or (and-let* ([a (assq ns namespace-table)]) (cdr a)) '())])
-                (set! namespace-table 
-                  (alist-update! ns (lset-union eq? oldsyms (cdr syms)) namespace-table eq?) ) )
-              (quit "invalid arguments to `namespace' declaration: ~S" spec) ) ) )
        ((constant)
         (let ((syms (cdr spec)))
@@ -2090 +2059 @@
 (define (prepare-for-code-generation node db)
   (let ([literals '()]
+        [lambda-info-literals '()]
         [lambdas '()]
         [temporaries 0]
@@ -2281 +2251 @@
           ((quote)
            (let ((c (first params)))
-             (cond ((fixnum? c)
+             (cond ((and (fixnum? c) (not (big-fixnum? c)))
                     (immediate-literal c) )
                    ((number? c)
                     (cond ((eq? 'fixnum number-type)
-                           (cond ((integer? c)
+                           (cond ((and (integer? c) (not (big-fixnum? c)))
                                   (compiler-warning 
                                    'type 
@@ -2303 +2273 @@
       (cond [(immediate? x) (immediate-literal x)]
             [(and (number? x) (inexact? x) 
-                  (list-index (lambda (y) (and (number? y) (inexact? y) (= x y))) literals) )
+                  (list-index (lambda (y) (and (number? y) (inexact? y) (= x y)))
+                              literals) )
              => values]
-            [(posq x literals) => values]
+            ((##core#inline "C_lambdainfop" x)
+             (let ((i (length lambda-info-literals)))
+               (set! lambda-info-literals 
+                 (append lambda-info-literals (list x))) ;*** see below
+               (vector i) ) )
+            [(posq x literals) => identity]
             [else (new-literal x)] ) )
 
     (define (new-literal x)
       (let ([i (length literals)])
-        (set! literals (append literals (list x))) ; could be optimized
+        (set! literals (append literals (list x))) ;*** could (should) be optimized
         i) )
 
@@ -2336 +2312 @@
       (debugging 'o "fast global references" fastrefs)
       (debugging 'o "fast global assignments" fastsets)
-      (values node2 literals lambdas) ) ) )
+      (values node2 literals lambda-info-literals lambdas) ) ) )

chicken/branches/release/csc.scm

@@ -51 +51 @@
 #endif
 
+#ifndef C_TARGET_LDFLAGS
+# define C_TARGET_LDFLAGS  C_INSTALL_LDFLAGS
+#endif
+
 #ifndef C_TARGET_BIN_HOME
 # define C_TARGET_BIN_HOME  C_INSTALL_BIN_HOME
@@ -87 +91 @@
 (define-foreign-variable TARGET_CFLAGS c-string "C_TARGET_CFLAGS")
 (define-foreign-variable INSTALL_CFLAGS c-string "C_INSTALL_CFLAGS")
+(define-foreign-variable TARGET_LDFLAGS c-string "C_TARGET_LDFLAGS")
+(define-foreign-variable INSTALL_LDFLAGS c-string "C_INSTALL_LDFLAGS")
 (define-foreign-variable INSTALL_MORE_LIBS c-string "C_INSTALL_MORE_LIBS")
 (define-foreign-variable INSTALL_MORE_STATIC_LIBS c-string "C_INSTALL_MORE_STATIC_LIBS")
@@ -118 +124 @@
 (define arguments (command-line-arguments))
 (define host-mode (member "-host" arguments))
+(define cross-chicken (##sys#fudge 39))
 
 (define (prefix str dir default)
@@ -130 +137 @@
 
 (define home
-  (or (getenv "CHICKEN_HOME") 
-      (quotewrap 
-       (prefix "" "share" (if host-mode INSTALL_SHARE_HOME TARGET_SHARE_HOME)))))
+  (quotewrap 
+   (prefix "" "share" (if host-mode INSTALL_SHARE_HOME TARGET_SHARE_HOME))))
 
 (define translator
@@ -159 +165 @@
       (lambda (s) (quotewrap s)) ; allow filenames w/ whitespace
       (lambda (s) s)))
+
 (define default-compilation-optimization-options (string-split (if host-mode INSTALL_CFLAGS TARGET_CFLAGS)))
 (define best-compilation-optimization-options default-compilation-optimization-options)
-(define default-linking-optimization-options '())
-(define best-linking-optimization-options '())
+(define default-linking-optimization-options (string-split (if host-mode INSTALL_LDFLAGS TARGET_LDFLAGS)))
+(define best-linking-optimization-options default-linking-optimization-options)
 
 (define-constant simple-options
@@ -177 +184 @@
     -inline-limit -profile-name -disable-warning -import -require-static-extension
     -feature -debug-level -heap-growth -heap-shrinkage -heap-initial-size -emit-exports
-    -compress-literals) )
+    -compress-literals) )               ; DEPRECATED
 
 (define-constant shortcuts
@@ -331 +338 @@
 
     -i -case-insensitive        don't preserve case of read symbols    
-    -K -keyword-style STYLE     allow alternative keyword syntax (prefix or suffix)
+    -K -keyword-style STYLE     allow alternative keyword syntax (prefix, suffix or none)
     -run-time-macros            macros are made available at run-time
 
@@ -437 +444 @@
     -debug MODES                display debugging output for the given modes
     -compiler PATHNAME          use other compiler than default `chicken'
-    -compress-literals NUMBER   compile literals above threshold as strings
     -disable-c-syntax-checks    disable syntax checks of C code fragments
     -raw                        do not generate implicit init- and exit code                           
@@ -566 +572 @@
                 (set! verbose #t)
                 (t-options "-verbose")
-                (set! compile-options (cons "-v -Q" compile-options))
+                (set! compile-options (cons* "-v" "-Q" compile-options))
                 (set! link-options (cons "-v" link-options)) ]
                [(|-A| -analyze-only)
@@ -588 +594 @@
                 (set! gui #t)
                 (when mingw
-                  (set! link-options (cons* "kernel32.lib" "user32.lib" "gdi32.lib" link-options))
+                  (set! link-options
+                    (cons* "-lkernel32" "-luser32.lib" "-lgdi32" "-mwindows"
+                           link-options))
                   (set! compile-options (cons "-DC_WINDOWS_GUI" compile-options))) ]
                [(-framework)
@@ -809 +817 @@
 
 (define (run-linking)
-  (let ([files (map cleanup-filename
+  (let ((files (map cleanup-filename
                     (append object-files
-                            (nth-value 0 (static-extension-info)) ) ) ] )
+                            (nth-value 0 (static-extension-info)) ) ) )
+        (target (cleanup-filename target-filename)))
     (unless (zero?
              ($system
@@ -819 +828 @@
                       (append 
                        files
-                       (list (string-append link-output-flag (cleanup-filename target-filename)) 
+                       (list (string-append link-output-flag target)
                              (linker-options)
                              (linker-libraries #f) ) ) ) ) ) )
       (exit last-exit-code) )
+    (when (and osx (or (not cross-chicken) host-mode))
+      (unless (zero? ($system 
+                      (string-append
+                       "install_name_tool -change libchicken.dylib "
+                       (quotewrap 
+                        (make-pathname
+                         (prefix "" "lib"
+                                 (if host-mode
+                                     INSTALL_LIB_HOME
+                                     TARGET_RUN_LIB_HOME))
+                         "libchicken.dylib") )
+                       " " 
+                       target) ) )
+        (exit last-exit-code) ) )
     (unless keep-files (for-each $delete-file generated-object-files)) ) )
 

chicken/branches/release/csi.1

@@ -75 +75 @@
 pathnames separated by
 .B \; .
-The environment variable 
-.B CHICKEN_HOME
-is also considered as a search path.
 
 .TP
@@ -141 +138 @@
 
 .TP
-.B CHICKEN_HOME
-Should contain the pathname of a directory where interpreter
-support-files can be found. This path is also added to the list of
-pathnames where include-filesd are searched.
+.B CHICKEN_PREFIX
+Is used as a prefix directory for support files, include-files and libraries.
 
 .TP

chicken/branches/release/csi.scm

@@ -53 +53 @@
 (include "banner")
 
-
-#{csi 
+(private csi 
   print-usage print-banner
   run hexdump del 
@@ -61 +60 @@
   deldups tty-input?
   history-list history-count history-add history-ref
-  trace-indent trace-indent-level traced-procedure-entry traced-procedure-exit}
+  trace-indent trace-indent-level traced-procedure-entry traced-procedure-exit)
 
 (declare
@@ -67 +66 @@
     ##sys#windows-platform)
   (hide parse-option-string bytevector-data member* canonicalize-args do-trace do-untrace
-        traced-procedures describer-table
+        traced-procedures describer-table dirseparator?
         findall trace-indent command-table do-break do-unbreak broken-procedures) )
 
@@ -131 +130 @@
 ;;; Chop terminating separator from pathname:
 
+(define (dirseparator? c)
+  (or (char=? c #\\) (char=? c #\/)))
+
 (define chop-separator 
-  (let ([pds ##sys#pathname-directory-separator]
-        [substring substring] )
+  (let ([substring substring] )
     (lambda (str)
-      (let ([len (sub1 (##sys#size str))])
-        (if (and (fx> len 0) (char=? (string-ref str len) pds))
+      (let* ((len (sub1 (##sys#size str)))
+             (c (string-ref str len)))
+        (if (and (fx> len 0) (dirseparator? c))
             (substring str 0 len)
             str) ) ) ) )
@@ -162 +164 @@
       (let ([path (getenv "PATH")])
         (and (> (##sys#size name) 0)
-             (cond [(char=? ##sys#pathname-directory-separator (string-ref name 0)) (addext name)]
-                   [(string-index (lambda (c) (char=? c ##sys#pathname-directory-separator)) name)
+             (cond [(dirseparator? (string-ref name 0)) (addext name)]
+                   [(string-index dirseparator? name)
                     (and-let* ([p (_getcwd buf 256)])
-                      (addext (string-append (chop-separator p) (string ##sys#pathname-directory-separator) name)) ) ]
+                      (addext (string-append (chop-separator p) "/" name)) ) ]
                    [(addext name)]
                    [else
-                    (let ([name2 (string-append (string ##sys#pathname-directory-separator) name)])
+                    (let ([name2 (string-append "/" name)])
                       (let loop ([ps (string-split path ";")])
                         (and (pair? ps)
@@ -849 +851 @@
     (let* ([eval? (member* '("-e" "-eval") args)]
            [batch (or script (member* '("-b" "-batch") args) eval?)]
-           [quiet (or script (member* '("-q" "-quiet") args) eval?)]
+           [quietflag (member* '("-q" "-quiet") args)]
+           [quiet (or script quietflag eval?)]
            [ipath (map chop-separator (string-split (or (getenv "CHICKEN_INCLUDE_PATH") "") ";"))] )      
       (define (collect-options opt)
@@ -864 +867 @@
               (load fn)
               (let* ([prefix (chop-separator (or (getenv "HOME") "."))]
-                     [fn (string-append prefix (string ##sys#pathname-directory-separator) init-file)] )
+                     [fn (string-append prefix "/" init-file)] )
                 (when (file-exists? fn) 
                   (load fn) ) ) ) ) )
+      (when quietflag (set! ##sys#eval-debug-level 0))
       (when (member* '("-h" "-help" "--help") args)
         (print-usage)

chicken/branches/release/debian/changelog

@@ +1 @@
+chicken (2.732-0.1) unstable; urgency=low
+
+  * New upstream version.
+
+ -- Ivan Raikov <raikov@oist.jp>  Sat, 01 Dec 2007 14:30:55 +0900
+
 chicken (2.703-0.1) unstable; urgency=low
 
@@ -155 +161 @@
 
  -- zhaoway <zw@debian.org>  Mon, 21 Jan 2002 20:40:17 +0800
+  

chicken/branches/release/debian/rules

@@ -16 +16 @@
 MAKE:=$(MAKE) PLATFORM=linux
 PREFIX=/usr
-BINARYVERSION=1
+BINARYVERSION=3
 
 build: build-stamp
@@ -22 +22 @@
         dh_testdir
 #       CFLAGS="$(CFLAGS)" ./configure --prefix=/usr --mandir=\$${prefix}/share/man --infodir=\$${prefix}/share/info
-        $(MAKE) MAKEINFO_PROGRAM_OPTIONS="" CFLAGS="$(CFLAGS)" PREFIX="$(PREFIX)" MANDIR="$(PREFIX)/share/man" INFODIR="$(PREFIX)/share/info" SHAREDIR="$(PREFIX)/share/chicken" EGGDIR="/var/lib/chicken/$(BINARYVERSION)"
+        $(MAKE) MAKEINFO_PROGRAM_OPTIONS="" CFLAGS="$(CFLAGS)" PREFIX="$(PREFIX)" MANDIR="$(PREFIX)/share/man" INFODIR="$(PREFIX)/share/info" SHAREDIR="$(PREFIX)/share" EGGDIR="/var/lib/chicken/$(BINARYVERSION)" MAKEINFO_PROGRAM_OPTIONS= HOSTNAME=debian
         touch build-stamp
 
@@ -44 +44 @@
         dh_clean -k
         dh_installdirs
-        $(MAKE) install PREFIX="$(CURDIR)/debian/tmp/usr" MANDIR="$(CURDIR)/debian/tmp/usr/share/man" INFODIR="$(CURDIR)/debian/tmp/usr/share/info" SHAREDIR="$(CURDIR)/debian/tmp/usr/share/chicken" EGGDIR="$(CURDIR)/debian/tmp/var/lib/chicken/$(BINARYVERSION)"
+# The directories here have to be prefixed by $(CURDIR)/debian/tmp
+# because that is the location where the binary package files are
+# placed by dpkg-buildpackage. If absolute files are specified,
+# i.e. /var/lib/chicken, then those files will be installed on the
+# build system, but will not end up in the package.
+        $(MAKE) install PREFIX="$(CURDIR)/debian/tmp/usr" MANDIR="$(CURDIR)/debian/tmp/usr/share/man" INFODIR="$(CURDIR)/debian/tmp/usr/share/info" SHAREDIR="$(CURDIR)/debian/tmp/usr/share" EGGDIR="$(CURDIR)/debian/tmp/var/lib/chicken/$(BINARYVERSION)" MAKEINFO_PROGRAM_OPTIONS= HOSTNAME=debian
 
 binary-common:
@@ -52 +57 @@
         dh_installdocs
         dh_installman
-        dh_installinfo chicken.info
+# The asterisk in chicken.info* is necessary, because Debian makeinfo
+# is very different from the standard makeinfo, and it is incredibly
+# difficult to convince it to produce standalone Texinfo files. 
+        dh_installinfo chicken.info*
         dh_installchangelogs ChangeLog.20070807
         dh_link

chicken/branches/release/defaults.make

@@ -39 +39 @@
 NURSERY ?= (128*1024)
 STACKDIRECTION ?= 1
+CROSS_CHICKEN ?= 0
 
 # directories
 
+DESTDIR =
 ifeq ($(PLATFORM),mingw)
 PREFIX ?= c:/devtools
@@ -47 +49 @@
 PREFIX ?= /usr/local
 endif
-DESTDIR = $(PREFIX)
-BINDIR = $(DESTDIR)/bin
-LIBDIR = $(DESTDIR)/lib
-SHAREDIR = $(DESTDIR)/share
+
+BINDIR = $(PREFIX)/bin
+LIBDIR = $(PREFIX)/lib
+SHAREDIR = $(PREFIX)/share
 DATADIR = $(SHAREDIR)/chicken
-MANDIR = $(SHAREDIR)/man/man1
+TOPMANDIR = $(SHAREDIR)/man
+MANDIR = $(TOPMANDIR)/man1
 INFODIR = $(SHAREDIR)/info
-INCDIR = $(DESTDIR)/include
+INCDIR = $(PREFIX)/include
 DOCDIR = $(DATADIR)/doc
-EGGDIR = $(DESTDIR)/lib/chicken/$(BINARYVERSION)
+CHICKENLIBDIR = $(LIBDIR)/chicken
+EGGDIR = $(CHICKENLIBDIR)/$(BINARYVERSION)
+
+ifeq ($(PLATFORM),mingw)
+BINDIR = $(PREFIX)\\bin
+LIBDIR = $(PREFIX)\\lib
+SHAREDIR = $(PREFIX)\\share
+DATADIR = $(SHAREDIR)\\chicken
+TOPMANDIR = $(SHAREDIR)\\man
+MANDIR = $(TOPMANDIR)\\man1
+INFODIR = $(SHAREDIR)\\info
+INCDIR = $(PREFIX)\\include
+DOCDIR = $(DATADIR)\\doc
+CHICKENLIBDIR = $(LIBDIR)\\chicken
+EGGDIR = $(CHICKENLIBDIR)\\$(BINARYVERSION)
+else
+IBINDIR = $(BINDIR)
+ILIBDIR = $(LIBDIR)
+ISHAREDIR = $(SHAREDIR)
+IDATADIR = $(DATADIR)
+ITOPMANDIR = $(TOPMANDIR)
+IMANDIR = $(MANDIR)
+IINFODIR = $(INFODIR)
+IINCDIR = $(INCDIR)
+IDOCDIR = $(DOCDIR)
+ICHICKENLIBDIR = $(CHICKENLIBDIR)
+IEGGDIR = $(EGGDIR)
+endif
 
 # commands
 
-ifdef HOST
-C_COMPILER ?= $(HOST)-gcc
-CXX_COMPILER ?= $(HOST)-g++
-LIBRARIAN ?= $(HOST)-ar
+ifdef HOSTSYSTEM
+C_COMPILER ?= $(HOSTSYSTEM)-gcc
+CXX_COMPILER ?= $(HOSTSYSTEM)-g++
+LIBRARIAN ?= $(HOSTSYSTEM)-ar
 else
 C_COMPILER ?= gcc
@@ -77 +107 @@
 ASSEMBLER ?= $(C_COMPILER)
 MAKEINFO_PROGRAM ?= -makeinfo
+ifeq ($(PLATFORM),mingw)
+INSTALL_PROGRAM ?= copy
+MAKEDIR_COMMAND ?= -mkdir
+else
+INSTALL_PROGRAM ?= install
 MAKEDIR_COMMAND ?= mkdir
-INSTALL_PROGRAM ?= install
+endif
 POSTINSTALL_STATIC_LIBRARY ?= true
 POSTINSTALL_PROGRAM ?= true
@@ -86 +121 @@
 # target variables
 
-ifdef TARGET
-TARGET_C_COMPILER ?= $(TARGET)-$(C_COMPILER)
-TARGET_CXX_COMPILER ?= $(TARGET)-$(CXX_COMPILER)
+ifdef TARGETSYSTEM
+TARGET_C_COMPILER ?= $(TARGETSYSTEM)-$(C_COMPILER)
+TARGET_CXX_COMPILER ?= $(TARGETSYSTEM)-$(CXX_COMPILER)
 else
 TARGET_C_COMPILER ?= $(C_COMPILER)
@@ -97 +132 @@
 TARGET_C_COMPILER_OPTIMIZATION_OPTIONS ?= $(C_COMPILER_OPTIMIZATION_OPTIONS)
 TARGET_PREFIX ?= $(PREFIX)
+TARGET_RUN_PREFIX ?= $(TARGET_PREFIX)
 TARGET_LIBRARIES ?= $(LIBRARIES)
-
-ifneq ($(TARGET_C_COMPILER),$(HOST_C_COMPILER))
+TARGET_LINKER_OPTIONS ?= $(LINKER_OPTIONS)
+
+ifneq ($(TARGET_C_COMPILER),$(C_COMPILER))
 CROSS_CHICKEN = 1
 else
@@ -122 +159 @@
 C_COMPILER_PCRE_OPTIONS ?= -DPCRE_STATIC
 C_COMPILER_SHARED_OPTIONS ?= -fPIC -DPIC
-LINKER_OPTIONS ?= -L.
-LINKER_STATIC_OPTIONS ?= $(LINKERFLAGS)
+LINKER_EXECUTABLE_OPTIONS ?= -L.
+LINKER_STATIC_OPTIONS ?= $(LINKER_EXECUTABLE_OPTIONS)
 LINKER_OUTPUT_OPTION ?= -o
 LINKER_LIBRARY_OPTION ?= -l
@@ -132 +169 @@
 REMOVE_COMMAND_OPTIONS ?= /f /q
 REMOVE_COMMAND_RECURSIVE_OPTIONS ?= /f /s /q
+MAKE_WRITABLE_COMMAND ?= rem
 else
 REMOVE_COMMAND_OPTIONS ?= -f
 REMOVE_COMMAND_RECURSIVE_OPTIONS ?= -fr
+MAKE_WRITABLE_COMMAND ?= chmod a+rw
 endif
 MAKEINFO_PROGRAM_OPTIONS ?= --no-split 
+ifneq ($(PLATFORM),mingw)
 INSTALL_PROGRAM_SHARED_LIBRARY_OPTIONS ?= -m755
 INSTALL_PROGRAM_STATIC_LIBRARY_OPTIONS ?= -m644
@@ -142 +182 @@
 INSTALL_PROGRAM_FILE_OPTIONS ?= -m644
 MAKEDIR_COMMAND_OPTIONS ?= -p
+endif
 ASSEMBLER_OPTIONS ?= $(C_COMPILER_OPTIONS)
 ASSEMBLER_OUTPUT_OPTION ?= -o
 ASSEMBLER_COMPILE_OPTION ?= -c
+ifdef STATICBUILD
+PRIMARY_LIBCHICKEN ?= libchicken$(A)
+else
+ifeq ($(PLATFORM),cygwin)
+PRIMARY_LIBCHICKEN = cygchicken-0.dll
+LIBCHICKEN_SO_FILE = cygchicken-0.dll
+LIBUCHICKEN_SO_FILE = cyguchicken-0.dll
+else
 PRIMARY_LIBCHICKEN ?= libchicken$(SO)
+LIBCHICKEN_SO_FILE ?= libchicken$(SO)
+LIBUCHICKEN_SO_FILE ?= libuchicken$(SO)
+endif
+endif
 UNINSTALLINFO_PROGRAM_OPTIONS ?= --delete
 LIBCHICKEN_SO_LIBRARIES ?= $(LIBRARIES)
@@ -163 +216 @@
 BUILD_TAG ?= compiled $(BUILD_TIME) on $(HOSTNAME) ($(UNAME_SYS))
 
+ifdef LOCKTOSPACE
+C_COMPILER_BUILD_RUNTIME_OPTIONS += -DC_LOCK_TOSPACE
+endif
+
 # file extensions
 
@@ -190 +247 @@
 CHICKEN_LIBRARY_OPTIONS = $(CHICKEN_OPTIONS) -explicit-use
 CHICKEN_PROGRAM_OPTIONS = $(CHICKEN_OPTIONS) -no-lambda-info
+CHICKEN_COMPILER_OPTIONS = $(CHICKEN_PROGRAM_OPTIONS) -extend private-namespace.scm
 CHICKEN_UNSAFE_OPTIONS = -unsafe -no-lambda-info
 
@@ -206 +264 @@
 CHICKEN_SHARED_EXECUTABLE = $(CHICKEN_PROGRAM)-shared$(EXE)
 CSI_SHARED_EXECUTABLE = $(CSI_PROGRAM)-shared$(EXE)
-TARGETS ?= libchicken$(A) libuchicken$(A) $(CHICKEN_STATIC_EXECUTABLE) \
+TARGETLIBS ?= libchicken$(A) libuchicken$(A)
+TARGETS ?= $(TARGETLIBS) $(CHICKEN_STATIC_EXECUTABLE) \
         $(CSI_STATIC_EXECUTABLE) $(CHICKEN_PROFILE_PROGRAM)$(EXE) \
         $(CSC_PROGRAM)$(EXE) \
@@ -215 +274 @@
 CHICKEN_SHARED_EXECUTABLE = $(CHICKEN_PROGRAM)$(EXE)
 CSI_SHARED_EXECUTABLE = $(CSI_PROGRAM)$(EXE)
-TARGETS ?= libchicken$(A) libuchicken$(A) $(CHICKEN_SHARED_EXECUTABLE) \
+TARGETLIBS ?= libchicken$(A) libuchicken$(A) \
+        $(LIBCHICKEN_SO_FILE) $(LIBUCHICKEN_SO_FILE)
+TARGETS ?= $(TARGETLIBS) $(CHICKEN_SHARED_EXECUTABLE) \
         $(CSI_SHARED_EXECUTABLE) $(CHICKEN_PROFILE_PROGRAM)$(EXE) \
-        $(CSC_PROGRAM)$(EXE) libchicken$(SO) \
-        libuchicken$(SO) $(CHICKEN_SETUP_PROGRAM)$(EXE) chicken.info \
+        $(CSC_PROGRAM)$(EXE) $(CHICKEN_SETUP_PROGRAM)$(EXE) chicken.info \
         $(CHICKEN_BUG_PROGRAM)$(EXE)
 endif
@@ -243 +303 @@
         echo "# define C_INSTALL_CFLAGS \"$(C_COMPILER_OPTIONS) $(C_COMPILER_OPTIMIZATION_OPTIONS)\"" >>$@
         echo "#endif" >>$@
+        echo "#ifndef C_INSTALL_LDFLAGS" >>$@
+        echo "# define C_INSTALL_LDFLAGS \"$(LINKER_OPTIONS) $(LINKER_OPTIMIZATION_OPTIONS)\"" >>$@
+        echo "#endif" >>$@
         echo "#ifndef C_INSTALL_SHARE_HOME" >>$@
         echo "# define C_INSTALL_SHARE_HOME \"$(DATADIR)\"" >>$@
@@ -288 +351 @@
         echo "# define C_TARGET_CFLAGS \"$(TARGET_C_COMPILER_OPTIONS) $(TARGET_C_COMPILER_OPTIMIZATION_OPTIONS)\"" >>$@
         echo "#endif" >>$@
+        echo "#ifndef C_TARGET_LDFLAGS" >>$@
+        echo "# define C_TARGET_LDFLAGS \"$(TARGET_LINKER_OPTIONS) $(TARGET_LINKER_OPTIMIZATION_OPTIONS)\"" >>$@
+        echo "#endif" >>$@
         echo "#ifndef C_CROSS_CHICKEN" >>$@
         echo "# define C_CROSS_CHICKEN $(CROSS_CHICKEN)" >>$@
@@ -295 +361 @@
         echo "#endif" >>$@
         echo "#ifndef C_TARGET_RUN_LIB_HOME" >>$@
-        echo "# define C_TARGET_RUN_LIB_HOME \"$(TARGET_PREFIX)/lib\"" >>$@
+        echo "# define C_TARGET_RUN_LIB_HOME \"$(TARGET_RUN_PREFIX)/lib\"" >>$@
         echo "#endif" >>$@
         echo "#ifndef C_TARGET_SHARE_HOME" >>$@
@@ -325 +391 @@
         echo "#endif" >>$@
 endif
+#

chicken/branches/release/distribution/manifest

@@ -202 +202 @@
 tests/fixnum-tests.scm
 tests/path-tests.scm
+tests/r4rstest.out
 tweaks.scm
 utils.scm
@@ -254 +255 @@
 rules.make
 defaults.make
+private-namespace.scm
+misc/makedist.scm

chicken/branches/release/eval.scm

@@ -112 +112 @@
 (define-foreign-variable installation-home c-string "C_INSTALL_SHARE_HOME")
 
-(define pds ##sys#pathname-directory-separator)
-(define pdss (string ##sys#pathname-directory-separator))
-
 (define ##sys#core-library-modules
   '(extras lolevel utils tcp regex regex-extras posix match srfi-1 srfi-4 srfi-13 srfi-14 srfi-18))
@@ -147 +144 @@
   (let ([getenv getenv])
     (lambda ()
-      (or (getenv "CHICKEN_HOME")
-          (and-let* ((p (getenv "CHICKEN_PREFIX")))
+      (or (and-let* ((p (getenv "CHICKEN_PREFIX")))
             (##sys#string-append 
              p
-             (if (char=? (string-ref p (fx- (##sys#size p) 1)) ##sys#pathname-directory-separator)
+             (if (memq (string-ref p (fx- (##sys#size p) 1)) '(#\\ #\/))
                  "share"
                  "/share") ) )
@@ -1120 +1116 @@
     (let loop ([i (fx- (##sys#size str) 1)])
       (and (not (zero? i))
-           (if (char=? pds (##core#inline "C_subchar" str i))
+           (if (memq (##core#inline "C_subchar" str i) '(#\\ #\/))
                i
                (loop (fx- i 1)) ) ) ) )
@@ -1156 +1152 @@
                  (or (##sys#dload (##sys#make-c-string fname) topentry #t) 
                      (and (not (has-sep? fname))
-                          (##sys#dload (##sys#make-c-string (string-append "." pdss fname)) topentry #t) ) ) )
+                          (##sys#dload (##sys#make-c-string (##sys#string-append "./" fname)) topentry #t) ) ) )
             (call-with-current-continuation
              (lambda (abrt)
@@ -1193 +1189 @@
   (set! load
     (lambda (filename . evaluator)
-      (fluid-let ([##sys#current-namespace ##sys#current-namespace])
-        (##sys#load filename (:optional evaluator #f) #f) ) ) )
+      (##sys#load filename (:optional evaluator #f) #f) ) )
   (set! load-relative
     (lambda (filename . evaluator)
-      (fluid-let ([##sys#current-namespace ##sys#current-namespace])
-        (##sys#load
-         (if (char=? pds (string-ref filename 0))
-             filename
-             (##sys#string-append ##sys#current-load-path filename) )
-         (:optional evaluator #f) #f) ) ) )
+      (##sys#load
+       (if (memq (string-ref filename 0) '(#\\ #\/))
+           filename
+           (##sys#string-append ##sys#current-load-path filename) )
+       (:optional evaluator #f) #f) ) )
   (set! load-noisily
     (lambda (filename #!key (evaluator #f) (time #f) (printer #f))
-      (fluid-let ([##sys#current-namespace ##sys#current-namespace])
-        (##sys#load filename evaluator #t time printer) ) ) ) )
+      (##sys#load filename evaluator #t time printer) ) ) )
 
 (define ##sys#load-library-extension    ; this is crude...
@@ -1284 +1277 @@
     (lambda (id loc)
       (define (err) (##sys#error loc "invalid extension path" id))
+      (define (sep? c) (or (char=? #\\ c) (char=? #\/ c)))
       (let ([p (cond [(string? id) id]
                      [(symbol? id) (##sys#symbol->string id)]
@@ -1297 +1291 @@
                              (if (null? (##sys#slot id 1))
                                  ""
-                                 pdss)
+                                 "/")
                              (loop (##sys#slot id 1)) ) ) ) ] ) ] )
         (let check ([p p])
           (let ([n (##sys#size p)])
             (cond [(fx= 0 n) (err)]
-                  [(char=? pds (string-ref p 0))
+                  [(sep? (string-ref p 0))
                    (check (##sys#substring p 1 n)) ]
-                  [(char=? pds (string-ref p (fx- n 1)))
+                  [(sep? (string-ref p (fx- n 1)))
                    (check (##sys#substring p 0 (fx- n 1))) ]
                   [else p] ) ) ) ) ) ) )
@@ -1311 +1305 @@
   (make-parameter 
    (or (getenv repository-environment-variable)
-       (getenv "CHICKEN_HOME")
        install-egg-home) ) )
 
@@ -1321 +1314 @@
     (lambda (p inc?)
         (define (check path)
-          (let ([p0 (string-append path pdss p)])
+          (let ([p0 (string-append path "/" p)])
             (and (or (file-exists? (##sys#string-append p0 ##sys#load-dynamic-extension))
                      (file-exists? (##sys#string-append p0 source-file-extension)) )
@@ -1383 +1376 @@
     (lambda (id loc)
       (let* ((p (##sys#canonicalize-extension-path id loc))
-             (rpath (string-append (##sys#repository-path) pdss p ".")) )
+             (rpath (string-append (##sys#repository-path) "/" p ".")) )
         (cond ((file-exists? (string-append rpath setup-file-extension))
                => (cut with-input-from-file <> read) )
@@ -1390 +1383 @@
 (define (extension-information ext)
   (##sys#extension-information ext 'extension-information) )
-
-(define extension-info extension-information) ; DEPRECATED
 
 (define ##sys#lookup-runtime-requirements 
@@ -1689 +1680 @@
             (cond ((eq? paths '()) fname)
                   ((test (string-append (##sys#slot paths 0)
-                                        pdss
+                                        "/"
                                         fname) ) )
                   (else (loop (##sys#slot paths 1))) ) ) ) ) ) )
@@ -2121 +2112 @@
                  (lambda ()
                    (set! ##sys#read-error-with-line-number #f)
-                   (set! ##sys#default-namespace-prefix #f)
                    (set! ##sys#enable-qualifiers #t)
-                   (set! ##sys#current-namespace #f)
                    (resetports)
                    (c #f) ) ) ) )

chicken/branches/release/extras.scm

@@ -68 +68 @@
      ##sys#gcd ##sys#lcm ##sys#fudge ##sys#check-list ##sys#user-read-hook) ) ] )
 
-#{extras
-  reverse-string-append generic-write hashtab-default-size hashtab-threshold hashtab-rehash hashtab-primes-table}
+(private
+ extras
+  reverse-string-append generic-write hashtab-default-size hashtab-threshold hashtab-rehash hashtab-primes-table)
 
 (declare

chicken/branches/release/library.scm

@@ -160 +160 @@
 
 
-(define-constant namespace-size 997)
 (define-constant namespace-max-id-len 31)
 (define-constant char-name-table-size 37)
@@ -2016 +2015 @@
 (define ##sys#default-read-info-hook #f)
 (define ##sys#read-error-with-line-number #f)
-(define ##sys#current-namespace #f)
-(define ##sys#default-namespace-prefix #f)
 (define ##sys#enable-qualifiers #t)
 (define (##sys#read-prompt-hook) #f)    ; just here so that srfi-18 works without eval
@@ -2356 +2353 @@
                             (loop i) ) ) ) ) ) )
 
-          (define (r-namespace)
-            (set! ##sys#current-namespace (##sys#make-vector namespace-size '()))
-            (let* ([ns (r-next-token)]
-                   [nslen (##sys#size ns)]
-                   [p (##sys#make-string 1)] )
-              (when (fx> nslen namespace-max-id-len)
-                (set! ns (##sys#substring ns 0 namespace-max-id-len))
-                (set! nslen namespace-max-id-len) )
-              (##sys#setbyte p 0 (##sys#size ns))
-              (let ([prefix (##sys#string-append p ns)])
-                (let loop ([toks '()])
-                  (r-spaces)
-                  (cond [(memq (##sys#peek-char-0 port) '(#\} #\$)) ;*** change this to (char=? #\$ (##sys#peek-char-0 port)) later
-                         (##sys#read-char-0 port)
-                         (for-each
-                          (lambda (tok)
-                            (let ([i (##core#inline
-                                      "C_fixnum_modulo"
-                                      (##core#inline "C_hash_string" tok) namespace-size)])
-                              (##sys#setslot 
-                               ##sys#current-namespace i
-                               (cons (cons tok (##sys#intern-symbol (##sys#string-append prefix tok)))
-                                     (##sys#slot ##sys#current-namespace i) ) ) ) )
-                          toks) ]
-                        [else (loop (cons (r-next-token) toks))] ) ) ) ) )
-
           (define (r-ext-symbol)
             (let* ([p (##sys#make-string 1)]
@@ -2408 +2379 @@
                                    (##sys#substring tok 0 (fx- len 1)) ) ) )
                      => build-keyword]  ; ugh
-                    [(not ##sys#current-namespace) (build-symbol tok)]
-                    [else
-                     (let ([i (##core#inline "C_fixnum_modulo" (##core#inline "C_hash_string" tok) namespace-size)])
-                       (let loop ([bucket (##sys#slot ##sys#current-namespace i)])
-                         (if (null? bucket)
-                             (build-symbol tok)
-                             (let ([e (##sys#slot bucket 0)])
-                               (if (string=? tok (##sys#slot e 0))
-                                   (##sys#slot e 1)
-                                   (loop (##sys#slot bucket 1)) ) ) ) ) ) ] ) ) )
+                    [else (build-symbol tok)])))
 
           (define (build-symbol tok)
-            (##sys#intern-symbol
-             (if ##sys#default-namespace-prefix
-                 (##sys#string-append ##sys#default-namespace-prefix tok)
-                 tok) ) )
+            (##sys#intern-symbol tok) )
           
           (define (build-keyword tok)
@@ -2484 +2443 @@
                                   (##sys#read-char-0 port)
                                   (r-comment) (readrec) )
-                                 ((#\{)
-                                  (##sys#read-char-0 port) 
-                                  (r-namespace) (readrec) )
                                  ((#\#) 
                                   (##sys#read-char-0 port)
@@ -2529 +2485 @@
                                  (else (##sys#user-read-hook dchar port)) ) ) ) ) ) )
                   ((#\() (r-list #\( #\)))
+                  ((#\{) (r-list #\{ #\}))
                   ((#\[) 
                    (r-list #\[ #\]) )
-                  ((#\) #\]) 
+                  ((#\) #\] #\}) 
                    (##sys#read-char-0 port)
                    (container c) )
-                  ((#\{ #\})
-                   (##sys#read-char-0 port)
-                   (##sys#read-error port "illegal character" c))
                   ((#\") (r-string #\"))
                   ((#\.) (r-number #f))
@@ -2876 +2830 @@
                 ((##core#inline "C_portp" x)
                  (if (##sys#slot x 1)
-                     (outstr port "#<input port ")
-                     (outstr port "#<output port ") )
+                     (outstr port "#<input port \"")
+                     (outstr port "#<output port \"") )
                  (outstr port (##sys#slot x 3))
-                 (outchr port #\>) )
+                 (outstr port "\">") )
                 ((##core#inline "C_vectorp" x)
                  (let ((n (##core#inline "C_block_size" x)))
@@ -3181 +3135 @@
                    (if (##sys#fudge 32) " gchooks" "") 
                    (if (##sys#fudge 35) " applyhook" "")
+                   (if (##sys#fudge 22) " lockts" "")
                    (if (##sys#fudge 39) " cross" "") ) ) )
         (string-append 
@@ -3191 +3146 @@
       +build-version+) )
 
-(define ##sys#pathname-directory-separator
-  (if ##sys#windows-platform #\\ #\/) )
+(define ##sys#pathname-directory-separator #\/) ; DEPRECATED
 
 
@@ -3258 +3212 @@
 
 (define feature? ##sys#feature?)
-(define test-feature? ##sys#feature?)   ; DEPRECATED
 
 
@@ -3313 +3266 @@
 
 (define get-call-chain ##sys#get-call-chain)
-(define print-backtrace print-call-chain) ; DEPRECATED
 
 
 ;;; Interrupt handling:
-
-(let ([count 0])                        ; DEPRECATED
-  (set! ##sys#enable-interrupts
-    (lambda val
-      (set! count (fx+ count (if (pair? val) (car val) 1)))
-      (when (eq? count 0) (##core#inline "C_enable_interrupts")) ) )
-  (set! ##sys#disable-interrupts
-    (lambda ()
-      (when (eq? count 0) (##core#inline "C_disable_interrupts"))
-      (set! count (fx- count 1)) ) ) )
-
-(define enable-interrupts ##sys#enable-interrupts) ; DEPRECATED
-(define disable-interrupts ##sys#disable-interrupts) ; DEPRECATED
 
 (define (##sys#user-interrupt-hook)
@@ -4238 +4177 @@
 
 
-;;; andmap + ormap:
+;;; andmap + ormap: DEPRECATED
 
 (define andmap
@@ -4258 +4197 @@
 (define ormap
   (lambda (f first . rest)
-    (if (null? first)
-        (or)
-        (let ([lists (cons first rest)])
-          (or (apply f (map (lambda (x) (car x)) lists))
-              (apply ormap f (map (lambda (x) (cdr x)) lists)) ) ) ) ) )
+    (and (pair? first)
+         (let ([lists (cons first rest)])
+           (or (apply f (map (lambda (x) (car x)) lists))
+               (apply ormap f (map (lambda (x) (cdr x)) lists)) ) ) ) ) )
 
 

chicken/branches/release/lolevel.scm

@@ -687 +687 @@
       (ipc-hook-0 ##sys#last-invalid-procedure args) ) ) )
 
-(define invalid-procedure-call-handler set-invalid-procedure-call-handler!) ; DEPRECATED
-
 (define (unbound-variable-value . val)
   (set! ##sys#unbound-variable-value-hook 

chicken/branches/release/manual/Accessing external objects

@@ -203 +203 @@
 (some-struct-ycoord-set! C-POINTER NUMBER)
 </enscript>
+
+
 === define-foreign-enum
 
- [syntax] (define-foreign-enum TYPENAME ITEM ...)
+ [syntax] (define-foreign-enum TYPESPEC [USE-ALIASES] ENUMSPEC ...)
 
 Defines a foreign type (as with {{define-foreign-type}}) that maps the elements
@@ -211 +213 @@
 symbols.
 
-{{TYPENAME}} specifies a foreign type that converts a symbol argument from the
-set {{ITEM ...}} into the appropriate enum value when passed as an argument to
+{{TYPESPEC}} specifies a foreign type that converts a symbol argument from the
+set {{ENUMSPEC ...}} into the appropriate enum value when passed as an argument to
 a foreign function.
 
@@ -220 +222 @@
 supported in this case).
 
-{{TYPENAME}} maybe a symbol or a list of the form {{(SCHEMENAME REALTYPE
-[DEFAULT-SCHEME-VALUE])}}, where {{REALTYPE}} designates the native type used.
-The default native type is {{"TYPENAME"}}. The {{DEFAULT-SCHEME-VALUE}}
-overrides the default result of mapping from the native type; i.e. when no such
-mapping exists. When supplied the form is used unquoted, otherwise the result
-is {{'()}}.
-
-{{ITEM}} is a symbol or a list of the form {{(SCHEMENAME REALTYPE
+{{TYPESPEC}} maybe a TYPENAME symbol or a list of the form {{(SCHEMENAME
+REALTYPE [DEFAULT-SCHEME-VALUE])}}, where {{REALTYPE}} designates the native
+type used. The default type specification is {{(TYPENAME TYPENAME)}}. The
+{{DEFAULT-SCHEME-VALUE}} overrides the default result of mapping from the
+native type; i.e. when no such mapping exists. When supplied the form is used
+unquoted, otherwise the result is {{'()}}.
+
+{{ENUMSPEC}} is a TYPENAME symbol or a list of the form {{(SCHEMENAME REALTYPE
 [SCHEME-VALUE])}}, where {{REALTYPE}} designates the native type used. The
-default native type is {{"ITEM"}}. The {{SCHEME-VALUE}} overrides the result of
-mapping from the native type. When supplied the form is used unquoted,
-otherwise the {{SCHEMENAME}} symbol is returned.
+default enum specification is {{(TYPENAME TYPENAME)}}. The {{SCHEME-VALUE}}
+overrides the result of mapping from the native type. When supplied the form is
+used unquoted, otherwise the {{SCHEMENAME}} symbol is returned.
+
+{{USE-ALIASES}} is an optional boolean flag that determines whether an alias or
+the {{SCHEMENAME}} is used as the defined foreign variable name. The default
+is {{#t}}.
 
 Additionally two procedures are defined named {{SCHEMENAME->number}} and
@@ -238 +244 @@
 takes one argument and converts a numeric value into its scheme value.
 
-Note that the specification of a scheme value override means the mapping may
-not be closed! {{(number->SCHEMENAME (SCHEMENAME->number SCHEMENAME))}} may not
-equal {{SCHEMENAME}}.
+Note that the specification of a scheme value override ({{SCHEME-VALUE}}) means
+the mapping may not be closed! {{(number->SCHEMENAME (SCHEMENAME->number
+SCHEMENAME))}} may not equal {{SCHEMENAME}}.
 
 Here a heavily contrived example:

chicken/branches/release/manual/Acknowledgements

@@ -8 +8 @@
 T. Kurt Bond, Ashley Bone, Dominique Boucher, Terence Brannon, Roy
 Bryant, Adam Buchbinder, Hans Bulfone, Category 5, Taylor Campbell,
-Esteban U. Caamano Castro, Franklin Chen, Thomas Chust, Gian Paolo
-Ciceri, John Cowan, Grzegorz Chrupała, James Crippen, Tollef Fog
-Heen, Alejandro Forero Cuervo, Linh Dang, Brian Denheyer, dgym, Chris
-Double, Jarod Eells, Petter Egesund, Steve Elkins, Daniel B. Faken,
-Will Farr, Graham Fawcett, Marc Feeley, Fizzie, Kimura Fuyuki, Tony
-Garnock-Jones, Martin Gasbichler, Joey Gibson, Stephen C. Gilardi,
-Joshua Griffith, Johannes Groedem, Damian Gryski, Mario Domenech
-Goulart, Andreas Gustafsson, Sven Hartrumpf, Jun-ichiro itojun Hagino,
-Ahdi Hargo, Matthias Heiler, Karl M. Hegbloom, William P. Heinemann,
-Bill Hoffman, Bruce Hoult, Hans Huebner, Markus Huelsmann, Goetz
-Isenmann, Paulo Jabardo, David Janssens, Christian Jaeger, Dale
-Jordan, Valentin Kamyshenko, Daishi Kato, Peter Keller, Brad Kind, Ron
-Kneusel, Matthias Koeppe, Krysztof Kowałczyk, Andre Kuehne, Todd
-R. Kueny Sr, Goran Krampe, David Krentzlin, Ben Kurtz, Micky
-Latowicki, John Lenz, Kirill Lisovsky, Kon Lovett, Dennis Marti,
-Charles Martin, Bob McIsaac, Alain Mellan, Eric Merrit, Perry Metzger,
-Scott G. Miller, Mikael, Bruce Mitchener, Chris Moline, Eric E. Moore,
-Julian Morrison, Dan Muresan, Lars Nilsson, Ian Oversby, o.t., Gene
-Pavlovsky, Levi Pearson, Nicolas Pelletier, Carlos Pita, Robin Lee
-Powell, Pupeno, Davide Puricelli, Doug Quale, Eric Raible, Ivan
-Raikov, Joel Reymont, Andreas Rottman, David Rush, Lars Rustemeier,
-Daniel Sadilek, Oskar Schirmer, Burton Samograd, Reed Sheridan, Ronald
-Schroeder, Spencer Schumann, Alex Shinn, Ivan Shmakov, Shmul, Tony
-Sidaway, Jeffrey B. Siegal, Andrey Sidorenko, Michele Simionato,
-Volker Stolz, Jon Strait, Dorai Sitaram, Robert Skeels, Jason Songhurst, Clifford
-Stein, Sunnan, Zbigniew Szadkowski, Mike Thomas, Minh Thu, Christian
-Tismer, Andre van Tonder, John Tobey, Henrik Tramberend, Vladimir
-Tsichevsky, Neil van Dyke, Sander Vesik, Panagiotis Vossos, Shawn
-Wagner, Peter Wang, Ed Watkeys, Thomas Weidner, Goeran Weinholt,
-Matthew Welland, Joerg Wittenberger, Peter Wright, Mark Wutka, Richard
-Zidlicky and Houman Zolfaghari for bug-fixes, tips and suggestions.
+Naruto Canada, Esteban U. Caamano Castro, Franklin Chen, Thomas Chust,
+Gian Paolo Ciceri, John Cowan, Grzegorz Chrupała, James Crippen,
+Tollef Fog Heen, Alejandro Forero Cuervo, Linh Dang, Brian Denheyer,
+dgym, Don, Chris Double, Jarod Eells, Petter Egesund, Steve Elkins,
+Daniel B. Faken, Will Farr, Graham Fawcett, Marc Feeley, Fizzie,
+Kimura Fuyuki, Tony Garnock-Jones, Martin Gasbichler, Joey Gibson,
+Stephen C. Gilardi, Joshua Griffith, Johannes Groedem, Damian Gryski,
+Mario Domenech Goulart, Andreas Gustafsson, Sven Hartrumpf, Jun-ichiro
+itojun Hagino, Ahdi Hargo, Matthias Heiler, Karl M. Hegbloom, William
+P. Heinemann, Bill Hoffman, Bruce Hoult, Hans Huebner, Markus
+Huelsmann, Goetz Isenmann, Paulo Jabardo, David Janssens, Christian
+Jaeger, Dale Jordan, Valentin Kamyshenko, Daishi Kato, Peter Keller,
+Brad Kind, Ron Kneusel, Matthias Koeppe, Krysztof Kowałczyk,
+Andre Kuehne, Todd R. Kueny Sr, Goran Krampe, David Krentzlin, Ben
+Kurtz, Micky Latowicki, John Lenz, Kirill Lisovsky, Kon Lovett, Dennis
+Marti, Charles Martin, Bob McIsaac, Alain Mellan, Eric Merrit, Perry
+Metzger, Scott G. Miller, Mikael, Bruce Mitchener, Chris Moline, Eric
+E. Moore, Julian Morrison, Dan Muresan, Lars Nilsson, Ian Oversby,
+o.t., Gene Pavlovsky, Levi Pearson, Nicolas Pelletier, Carlos Pita,
+Robin Lee Powell, Pupeno, Davide Puricelli, Doug Quale, Eric Raible,
+Ivan Raikov, Joel Reymont, Eric Rochester, Andreas Rottman, David
+Rush, Lars Rustemeier, Daniel Sadilek, Oskar Schirmer, Burton
+Samograd, Reed Sheridan, Ronald Schroeder, Spencer Schumann, Alex
+Shinn, Ivan Shmakov, Shmul, Tony Sidaway, Jeffrey B. Siegal, Andrey
+Sidorenko, Michele Simionato, Volker Stolz, Jon Strait, Dorai Sitaram,
+Robert Skeels, Jason Songhurst, Clifford Stein, Sunnan, Zbigniew
+Szadkowski, Rick Taube, Mike Thomas, Minh Thu, Christian Tismer, Andre
+van Tonder, John Tobey, Henrik Tramberend, Vladimir Tsichevsky, Neil
+van Dyke, Sander Vesik, Panagiotis Vossos, Shawn Wagner, Peter Wang,
+Ed Watkeys, Thomas Weidner, Goeran Weinholt, Matthew Welland, Joerg
+Wittenberger, Peter Wright, Mark Wutka, Richard Zidlicky and Houman
+Zolfaghari for bug-fixes, tips and suggestions.
 
 CHICKEN uses the PCRE regular expression package ([[http://www.pcre.org]]),
 which is written by Philip Hazel.
 
-Special thanks to Brandon van Every for contributing the 
-[[http://www.cmake.org|CMake]] support and for helping
-with Windows build issues.
+Special thanks to Brandon van Every for contributing the (now defunct)
+[[http://www.cmake.org|CMake]] support and for helping with Windows
+build issues.
 
 Also special thanks to Benedikt Rosenau for his constant encouragement.
@@ -59 +60 @@
 ; Andrew Wilcox : queues.
 ; Andrew Wright : pattern matcher.
+; [[Alex Shinn]] : {{scheme-complete.el}} emacs tab-completion
 
 Previous: [[FAQ]]

chicken/branches/release/manual/C interface

@@ -283 +283 @@
 
 
+=== C_pre_gc_hook
+
+ [C Variable] void (*C_pre_gc_hook)(int mode)
+
+If not {{NULL}}, the function pointed to by this variable will be
+called before each garbage collection with a flag indicating what kind
+of collection was performed (either {{0}} for a minor collection or
+{{2}} for a resizing collection). A "resizing" collection means a
+secondary collection that moves all live data into a enlarged (or
+shrinked) heap-space. Minor collections happen very frequently, so the
+hook function should not consume too much time. The hook function may
+not invoke Scheme callbacks.
+
+Note that resizing collections may be nested in normal major collections.
+
 === C_post_gc_hook
 
- [C Variable] void (*C_post_gc_hook)(int mode)
-
-If not {{NULL}}, the function pointed to by this variable will be called
-after each garbage collection with a flag indicating what kind of collection
-was performed (either {{0}} for a minor collection or {{1}} for a major
-collection). Minor collections happen very frequently, so the hook function
-should not consume too much time. The hook function may not invoke Scheme
-callbacks.
-
-
-
-An example:
+ [C Variable] void (*C_post_gc_hook)(int mode, long ms)
+
+If not {{NULL}}, the function pointed to by this variable will be
+called after each garbage collection with a flag indicating what kind
+of collection was performed (either {{0}} for a minor collection,
+{{1}} for a major collection or {{2}} for a resizing
+collection). Minor collections happen very frequently, so the hook
+function should not consume too much time. The hook function may not
+invoke Scheme callbacks. The {{ms}} argument records the number of
+milliseconds required for the garbage collection, if the collection
+was a major one. For minor collections the value of the {{ms}} argument
+is undefined.
+
+
+
+=== An example for simple calls to foreign code involving callbacks
 
  % cat foo.scm
@@ -335 +354 @@
 
 
-'''Notes:'''
+=== Notes:
 
 Scheme procedures can call C functions, and C functions can call

chicken/branches/release/manual/Callbacks

@@ -75 +75 @@
 stack with the {{C_save}} macro.
 
-=== C_callback_adjust_stack_limits
+=== C_callback_adjust_stack
 
- [C function] void C_callback_adjust_stack_limits (C_word *ptr)
+ [C function] void C_callback_adjust_stack (C_word *ptr, int size)
 
 The runtime-system uses the stack as a special allocation area and
-internally holds pointers to estimated limits to distinguish between Scheme
-data objects inside the stack from objects outside of it.
-If you invoke callbacks at wildly differing stack-levels,
-these limits may shift from invocation to invocation. Callbacks defined
-with {{define-external}} will perform appropriate adjustments automatically,
-but if you invoke {{C_callback}} manually, you should perform a
-{{C_callback_adjust_stack_limits}} to make sure the internal limits are
-set properly. {{ptr}} should point to some data object on the stack. The
-call will make sure the limits are adjusted so that the value pointed to
-by {{ptr}} is located in the stack.
+internally holds pointers to estimated limits to distinguish between
+Scheme data objects inside the stack from objects outside of it.  If
+you invoke callbacks at wildly differing stack-levels, these limits
+may shift from invocation to invocation. Callbacks defined with
+{{define-external}} will perform appropriate adjustments
+automatically, but if you invoke {{C_callback}} manually, you should
+perform a {{C_callback_adjust_stack}} to make sure the internal limits
+are set properly. {{ptr}} should point to some data object on the
+stack and {{size}} is the number of words contained in the data object
+(or some estimate). The call will make sure the limits are adjusted so
+that the value pointed to by {{ptr}} is located in the stack.
 
 Previous: [[Embedding]]

chicken/branches/release/manual/Data representation

@@ -31 +31 @@
 C_SCHEME_END_OF_FILE}}
 
-Collectively, bits 1 and 2 are known as the ''immediate mark bits''.  When bit 1 is set, the object is a fixnum, as described above.  When bit 2 is set, it is an immediate object other than a fixnum.  If neither is set, the object is non-immediate, as described below.  (By definition, bits 1 and 2 may not both be set.)
+Collectively, bits 1 and 2 are known as the ''immediate mark bits''.  When bit 1 is set, the object is a fixnum, as described above, and bit 2 is part of its value.  When bit 1 is clear but bit 2 is set, it is an immediate object other than a fixnum.  If neither bit 1 nor bit 2 is set, the object is non-immediate, as described below.
 
 === Non-immediate objects

chicken/branches/release/manual/Declarations

@@ -71 +71 @@
 
 
-=== compress-literals
-
- [declaration specifier] (compress-literals [THRESHOLD [INITIALIZER]])
-
-The same as the {{-compress-literals}} compiler option.
-The threshold argument defaults to 50. If the optional argument {{INITIALIZER}}
-is given, then the literals will not be created at module startup,
-but when the procedure with this name will be called.
-
 === constant
 

chicken/branches/release/manual/Deviations from the standard

@@ -3 +3 @@
 == Deviations from the standard
 
-* Identifiers are by default case-sensitive (see [[http://galinha.ucpel.tche.br:8080/Using%20the%20compiler#Compiler%20command%20line%20format|Compiler command line format]]).
+Identifiers are by default case-sensitive (see
+[[http://galinha.ucpel.tche.br:8080/Using%20the%20compiler#Compiler%20command%20line%20format|Compiler
+command line format]]).
 
-* [4.1.3] The maximal number of arguments that may be passed to a compiled procedure or macro is 120.  A macro-definition that has a single rest-parameter can have any number of arguments.  If the {{libffi}} library is available on this platform, and if it is installed, then CHICKEN can take advantage of this. See the [[http://chicken.wiki.br/chicken/README|README]] file for more details.
+[4.1.3] The maximal number of arguments that may be passed to a
+compiled procedure or macro is 120.  A macro-definition that has a
+single rest-parameter can have any number of arguments.  If the
+{{libffi}} library is available on this platform, and if it is
+installed, then CHICKEN can take advantage of this. See the
+[[http://chicken.wiki.br/chicken/README|README]] file for more
+details.
 
-* [4.2.2] {{letrec}} does evaluate the initial values for the bound variables sequentially and not in parallel, that is:
+[4.2.2] {{letrec}} does evaluate the initial values for the bound
+variables sequentially and not in parallel, that is:
 
   (letrec ((x 1) (y 2)) (cons x y))
@@ -26 +35 @@
       (cons x y) ) )
 
-* [4.3] {{syntax-rules}} macros are not provided but available separately.
+[4.3] {{syntax-rules}} macros are not provided but available
+separately.
 
-* [6.1] {{equal?}} compares all structured data recursively, while R5RS specifies that {{eqv?}} is used for data other than pairs, strings and vectors. 
+[6.1] {{equal?}} compares all structured data recursively, while R5RS
+specifies that {{eqv?}} is used for data other than pairs, strings and
+vectors.
 
-* [6.2.4]  The runtime system uses the numerical string-conversion routines of the underlying C library and so does only understand standard (C-library) syntax for floating-point constants.
+[6.2.4] The runtime system uses the numerical string-conversion
+routines of the underlying C library and so does only understand
+standard (C-library) syntax for floating-point constants.
 
-* [6.2.5] There is no built-in support for rationals, complex numbers or extended-precision integers (bignums). The routines {{complex?}}, {{real?}} and {{rational?}} are identical to the standard procedure {{number?}}. The procedures {{numerator}}, {{denominator}}, {{rationalize}}, {{make-rectangular}} and {{make-polar}} are not implemented. Fixnums are limited to ±2<nowiki><sup>30</sup></nowiki> (or ±2<nowiki><sup>62</sup></nowiki> on 64-bit hardware).  Support for extended numbers is available as a separate package, provided the GNU multiprecision library is installed.
+[6.2.5] There is no built-in support for rationals, complex numbers or
+extended-precision integers (bignums). The routines {{complex?}},
+{{real?}} and {{rational?}} are identical to the standard procedure
+{{number?}}. The procedures {{numerator}}, {{denominator}},
+{{rationalize}}, {{make-rectangular}} and {{make-polar}} are not
+implemented. Fixnums are limited to ±2<nowiki><sup>30</sup></nowiki>
+(or ±2<nowiki><sup>62</sup></nowiki> on 64-bit hardware).  Support for
+extended numbers is available as a separate package, provided the GNU
+multiprecision library is installed.
 
-* [6.2.6] The procedure {{string->number}} does not obey read/write invariance on inexact numbers.
+[6.2.6] The procedure {{string->number}} does not obey read/write
+invariance on inexact numbers.
 
-* [6.4] The maximum number of values that can be passed to continuations captured using {{call-with-current-continuation}} is 120.
+[6.4] The maximum number of values that can be passed to continuations
+captured using {{call-with-current-continuation}} is 120.
 
-* [6.5] Code evaluated in {{scheme-report-environment}} or {{null-environment}} still sees non-standard syntax.
+[6.5] Code evaluated in {{scheme-report-environment}} or
+{{null-environment}} still sees non-standard syntax.
 
-* [6.6.2] The procedure {{char-ready?}} always returns {{#t}} for terminal ports.  The procedure {{read}} does not obey read/write invariance on inexact numbers.
+[6.6.2] The procedure {{char-ready?}} always returns {{#t}} for
+terminal ports.  The procedure {{read}} does not obey read/write
+invariance on inexact numbers.
 
-* [6.6.3] The procedures {{write}} and {{display}} do not obey read/write invariance to inexact numbers.
+[6.6.3] The procedures {{write}} and {{display}} do not obey
+read/write invariance to inexact numbers.
 
-* [6.6.4] The {{transcript-on}} and {{transcript-off}} procedures are not implemented.
+[6.6.4] The {{transcript-on}} and {{transcript-off}} procedures are
+not implemented.
 
 Previous: [[Supported language]]

chicken/branches/release/manual/Extensions to the standard

@@ -6 +6 @@
 {{| ... |}}.
 
-[2.3] The brackets {{[ ... ]}} are provided as an alternative syntax
-for {{( ... )}}.  A number of reader extensions is provided. See
-[[Non-standard read syntax]].
+[2.3] The brackets {{[ ... ]}} and the braces {{ { ... } }} are
+provided as an alternative syntax for {{( ... )}}.  A number of reader
+extensions is provided. See [[Non-standard read syntax]].
 
 [4] Numerous non-standard macros are provided. See 
@@ -31 +31 @@
 * Required-parameters are bound to successive arguments starting with the first argument. It shall be an error if there are fewer arguments than required-parameters.
 * Next, the optional-parameters are bound with the remaining arguments. If there are fewer arguments than optional-parameters, then the remaining optional-parameters are bound to the result of the evaluation of their corresponding <initializer>, if one was specified, otherwise {{#f}}. The corresponding <initializer> is evaluated in an environment in which all previous parameters have been bound.
-* If there is a rest-parameter, then it is bound to a list containing all the remaining arguments left over after the argument bindings with required-parameters and optional-parameters have been made. These remaining arguments are also eligible to be bound to keyword-parameters, in which case the argument will be a member of both the rest-parameter list and the keyword-parameter. If there is no rest-parameter and there are no matching keyword-parameters, then it shall be an error for there to be any remaining arguments left unbound.
-* If {{#!key}} was specified in the parameter-list, there shall be an even number of remaining arguments. These are interpreted as a series of pairs, where the first member of each pair is a keyword specifying the parameter name, and the second member is the corresponding value. It shall be an error if the first member of an argument pair is not a keyword, unless there is a rest-parameter. If the same keyword occurs more than once in the list of arguments, then the corresponding value of the first keyword is the binding value. If there is no argument for a particular keyword-parameter, then the variable is bound to the result of evaluating <initializer>, if one was specified, otherwise {{#f}}. The corresponding <initializer> is evaluated in an environment in which all previous parameters have been bound. 
+* If there is a rest-parameter, then it is bound to a list containing all the remaining arguments left over after the argument bindings with required-parameters and optional-parameters have been made. 
+* If {{#!key}} was specified in the parameter-list, there should be an even number of remaining arguments. These are interpreted as a series of pairs, where the first member of each pair is a keyword specifying the parameter name, and the second member is the corresponding value. If the same keyword occurs more than once in the list of arguments, then the corresponding value of the first keyword is the binding value. If there is no argument for a particular keyword-parameter, then the variable is bound to the result of evaluating <initializer>, if one was specified, otherwise {{#f}}. The corresponding <initializer> is evaluated in an environment in which all previous parameters have been bound. 
+
+Needing a special mention is the close relationship between the rest-parameter and possible keyword-parameters.  Declaring a rest-parameter binds up all remaining arguments in a list, as described above. These same remaining arguments are also used for attempted matches with declared keyword-parameters, as described above, in which case a matching keyword-parameter binds to the corresponding value argument at the same time that both the keyword and value arguments are added to the rest parameter list.
+Note that for efficiency reasons, the keyword-parameter matching does nothing more than simply attempt to match with pairs that may exist in the remaining arguments.  Extra arguments that don't match are simply unused and forgotten if no rest-parameter has been declared.  Because of this, the caller of a procedure containing one or more keyword-parameters cannot rely on any kind of system error to report wrong keywords being passed in.
 
 It shall be an error for an {{<ident>}} to appear more than once in a parameter-list.
 
-Keyword arguments are internally handled as rest-parameters with subsequent processing
-of the argument list. Extra arguments (for example by specifying keyword arguments 
-but no rest argument) are not checked and simply ignored.
+If there is no rest-parameter and no keyword-parameters in the parameter-list, then it shall be an error for any extra arguments to be passed to the procedure.
+
 
 Example:
@@ -155 +157 @@
 {{#:append}}.
 
+[6.7] The {{exit}} procedure exits a program right away and does ''not'' invoke pending {{dynamic-wind}} thunks.
+
 Previous: [[Deviations from the standard]]
 

chicken/branches/release/manual/Foreign type specifiers

@@ -12 +12 @@
 
 As argument: any value ({{#f}} is false, anything else is true).
-As result: anything different from 0 and the {{NULL}}-pointer
-is {{#t}}.
+
+As result: anything different from 0 and the {{NULL}} pointer is {{#t}}.
 
 === byte unsigned-byte
@@ -48 +48 @@
 === number
 
-A floating-point number. Similar to {{double}}, but when used as a result
-type, then either an exact integer or a floating-point number is returned, depending
+A floating-point number. Similar to {{double}}, but when used as a result type,
+then either an exact integer or a floating-point number is returned, depending
 on whether the result fits into an exact integer or not.
 
@@ -55 +55 @@
 
 A symbol, which will be passed to foreign code as a zero-terminated string.
+
 When declared as the result of foreign code, the result should be a string and
 a symbol with the same name will be interned in the symbol table (and returned
@@ -61 +62 @@
 === scheme-pointer
 
-An untyped pointer to the contents of a non-immediate Scheme object
-(not allowed as return type).  The value {{#f}} is also allowed
-and is passed as a {{NULL}} pointer. 
-Don't confuse this type with {{(pointer ...)}} which means something
+An untyped pointer to the contents of a non-immediate Scheme object (not
+allowed as return type). The value {{#f}} is also allowed and is passed as a
+{{NULL}} pointer.
+
+Don't confuse this type with {{(c-pointer ...)}} which means something
 different (a machine-pointer object).
 
 === nonnull-scheme-pointer
 
-As {{pointer}}, but guaranteed not to be {{#f}}.
-Don't confuse this type with {{(nonnull-pointer ...)}} which means something
+As {{scheme-pointer}}, but guaranteed not to be {{#f}}.
+
+Don't confuse this type with {{(nonnull-c-pointer ...)}} which means something
 different (a machine-pointer object).
 
 === c-pointer
 
-An untyped operating-system pointer or a locative.  The value {{#f}} is also
-allowed and is passed as a {{NULL}} pointer.  If uses as the type of
+An untyped operating-system pointer or a locative. The value {{#f}} is also
+allowed and is passed as a {{NULL}} pointer. If uses as the type of
 a return value, a {{NULL}} pointer will be returned as {{#f}}.
 
@@ -83 +86 @@
 As {{c-pointer}}, but guaranteed not to be {{#f/NULL}}.
 
-=== [nonnull-] blob
-
-A blob object, passed as a pointer to its contents. Arguments
-of type {{blob}} may optionally be {{#f}}, which is
-passed as a NULL pointer.  This is not allowed as a return type.
-
-=== [nonnull-] u8vector [nonnull-] u16vector [nonnull-] u32vector [nonnull-] s8vector [nonnull-] s16vector [nonnull-] s32vector [nonnull-] f32vector [nonnull-] f64vector
-
-A SRFI-4 number-vector object, passed as a pointer to its
-contents. These type specifiers are not allowed
-as return types.
+=== blob
+
+A blob object, passed as a pointer to its contents. Arguments of type {{blob}}
+may optionally be {{#f}}, which is passed as a NULL pointer.
+
+This is not allowed as a return type.
+
+=== nonnull-blob
+
+As {{blob}}, but guaranteed not to be {{#f}}.
+
+=== u8vector u16vector u32vector s8vector s16vector s32vector f32vector f64vector
+
+A SRFI-4 number-vector object, passed as a pointer to its contents.
+
+These type specifiers are not allowed as return types.
+
+=== nonnull-u8vector nonnull-u16vector nonnull-u32vector nonnull-s8vector nonnull-s16vector nonnull-s32vector nonnull-f32vector nonnull-f64vector
+
+As {{u8vector ...}}, but guaranteed not to be {{#f}}.
 
 === c-string
 
-A C string (zero-terminated). The value {{#f}}
-is also allowed and is passed as a {{NULL}} pointer. If uses as
-the type of a return value, a {{NULL}} pointer will be returned as
-{{#f}}. Note that the string is copied (with a zero-byte appended)
-when passed as an argument to a foreign function. Also a return value
+A C string (zero-terminated). The value {{#f}} is also allowed and is passed as
+a {{NULL}} pointer. If uses as the type of a return value, a {{NULL}} pointer
+will be returned as {{#f}}. Note that the string is copied (with a zero-byte
+appended) when passed as an argument to a foreign function. Also a return value
 of this type is copied into garbage collected memory.
 
@@ -110 +121 @@
 === [nonnull-] c-string*
 
-Similar to {{[nonnull-]c-string}}, but if used as a result-type,
-the pointer returned by the foreign code will be freed (using the
-C-libraries {{free(1)}})
-after copying. This type specifier is not valid as a result type
-for callbacks defined with {{define-external}}.
+Similar to {{[nonnull-] c-string}}, but if used as a result-type, the pointer
+returned by the foreign code will be freed (using the C-libraries {{free(1)}})
+after copying. This type specifier is not valid as a result type for callbacks
+defined with {{define-external}}.
 
 === [nonnull-] unsigned-c-string[*]
@@ -122 +132 @@
 === c-string-list
 
-Expects a pointer to a list of C strings teminated by a {{NULL}} pointer
-and returns a list of strings. Only valid as a result type of non-callback
-functions.
+Expects a pointer to a list of C strings teminated by a {{NULL}} pointer and
+returns a list of strings.
+
+Only valid as a result type of non-callback functions.
 
 === c-string-list*
@@ -133 +144 @@
 === void
 
-Specifies an undefined return value. Not allowed as argument type.
+Specifies an undefined return value.
+
+Not allowed as argument type.
 
 === (const TYPE)
@@ -143 +156 @@
 An enumeration type. Handled internally as an {{integer}}.
 
-=== (pointer TYPE) (c-pointer TYPE)
+=== (c-pointer TYPE)
 
 An operating-system pointer or a locative to an object of {{TYPE}}.
 
-=== (nonnull-pointer TYPE) (nonnull-c-pointer TYPE)
-
-As {{(pointer TYPE)}}, but guaranteed not to be {{#f/NULL}}.
+=== (nonnull-c-pointer TYPE)
+
+As {{(c-pointer TYPE)}}, but guaranteed not to be {{#f/NULL}}.
 
 === (ref TYPE)
@@ -158 +171 @@
 === (struct NAME)
 
-A struct of the name {{NAME}}, which should be a string. Structs
-can not be directly passed as arguments to foreign function, neither
+A struct of the name {{NAME}}, which should be a string.
+
+Structs cannot be directly passed as arguments to foreign function, neither
 can they be result values. Pointers to structs are allowed, though.
 
 === (template TYPE ARGTYPE ...)
 
-A C++ template type. For example {{vector<int>}} would be specified
-as {{(template "vector" int)}}. Template types can not be directly passed
-as arguments or returned as results.
+A C++ template type. For example {{vector<int>}} would be specified as
+{{(template "vector" int)}}.
+
+Template types cannot be directly passed as arguments or returned as results.
 
 === (union NAME)
 
-A union of the name {{NAME}}, which should be a string. Unions can
-not be directly passed as arguments to foreign function, neither can
+A union of the name {{NAME}}, which should be a string.
+
+Unions cannot be directly passed as arguments to foreign function, neither can
 they be result values. Pointers to unions are allowed, though.
 
 === (instance CNAME SCHEMECLASS)
 
-A pointer to a C++ class instance. {{CNAME}} should designate
-the name of the C++ class, and {{SCHEMECLASS}} should be the class
-that wraps the instance pointer. Normally {{SCHEMECLASS}}
-should be a subclass of {{<c++-object>}}.
+A pointer to a C++ class instance. {{CNAME}} should designate the name of the
+C++ class, and {{SCHEMECLASS}} should be the class that wraps the instance
+pointer. Normally {{SCHEMECLASS}} should be a subclass of {{<c++-object>}}.
 
 === (instance-ref CNAME SCHEMECLASS)
@@ -187 +202 @@
 === (function RESULTTYPE (ARGUMENTTYPE1 ... [...]) [CALLCONV])
 
-A function pointer. {{CALLCONV}} specifies an optional calling
-convention and should be a string. The meaning of this string is entirely
-platform dependent.  The value {{#f}} is also allowed and is passed
-as a {{NULL}} pointer.
+A function pointer. {{CALLCONV}} specifies an optional calling convention and
+should be a string. The meaning of this string is entirely platform dependent.
+The value {{#f}} is also allowed and is passed as a {{NULL}} pointer.
 
 === Mappings
@@ -215 +229 @@
 </td></tr><tr><td>number</td><td>
 double
-</td></tr><tr><td>[nonnull-]pointer</td><td>
-void *
 </td></tr><tr><td>[nonnull-]c-pointer</td><td>
 void *
@@ -247 +259 @@
 </td></tr><tr><td>void</td><td>
 void
-</td></tr><tr><td>([nonnull-]pointer TYPE)</td><td>
+</td></tr><tr><td>([nonnull-]c-pointer TYPE)</td><td>
 TYPE *
 </td></tr><tr><td>(enum NAME)</td><td>

chicken/branches/release/manual/Locations

@@ -50 +50 @@
 <enscript highlight=scheme>
 (define-external foo int)
-((foreign-lambda* void (((pointer int) ip)) "*ip = 123;") 
+((foreign-lambda* void (((c-pointer int) ip)) "*ip = 123;") 
   (location foo))
 foo                                                                               ==> 123
@@ -64 +64 @@
 
 (define modf
-  (foreign-lambda double "modf" double (pointer double)) )
+  (foreign-lambda double "modf" double (c-pointer double)) )
 
 (let-location ([i double])

chicken/branches/release/manual/Non-standard macros and special forms

@@ -5 +5 @@
 == Non-standard macros and special forms
 
-=== Making extra libraries and extensions availablee
+=== Making extra libraries and extensions available
 
 ==== require-extension
@@ -12 +12 @@
  [syntax] (use ID ...)
 
-This form does all necessary steps to make the libraries or extensions given
-in {{ID ...}} available. It loads syntactic extension, if needed and generates
+This form does all the necessary steps to make the libraries or extensions given
+in {{ID ...}} available. It loads syntactic extensions, if needed and generates
 code for loading/linking with core library modules or separately installed
 extensions. {{use}} is just a shorter alias for {{require-extension}}.
-This implementation of {{require-extension}} is compliant to [[http://srfi.schemers.org/srfi-55/srfi-55.html|SRFI-55]]
+This implementation of {{require-extension}} is compliant with [[http://srfi.schemers.org/srfi-55/srfi-55.html|SRFI-55]]
 (see the [[http://srfi.schemers.org/srfi-55/srfi-55.html|SRFI-55]] document for more information).
 
@@ -24 +24 @@
 * If {{ID}} names a built-in feature {{chicken srfi-0 srfi-2 srfi-6 srfi-8 srfi-9 srfi-10 srfi-17 srfi-23 srfi-30 srfi-39 srfi-55}}, then nothing is done.
 * If {{ID}} names one of the syntactic extensions {{chicken-more-macros chicken-ffi-macros}}, then this extension will be loaded.
-* {{ID}} names one of the core library units shipped with CHICKEN, then a {{(load-library 'ID)}} will be performed.
-* {{ID}} names an installed extension with the {{syntax}} or {{require-at-runtime}} attribute, then the equivalent of {{(require-for-syntax 'ID)}} is performed, probably followed by {{(require ...)}} for any run-time requirements.
-* Otherwise {{(require-extension ID)}} is equivalent to {{(require 'ID)}}.
-
-During compilation one of the following happens instead:
+* If {{ID}} names one of the core library units shipped with CHICKEN, then a {{(load-library 'ID)}} will be performed.
+* If {{ID}} names an installed extension with the {{syntax}} or {{require-at-runtime}} attribute, then the equivalent of {{(require-for-syntax 'ID)}} is performed, probably followed by {{(require ...)}} for any run-time requirements.
+* Otherwise, {{(require-extension ID)}} is equivalent to {{(require 'ID)}}.
+
+During compilation, one of the following happens instead:
 
 * If {{ID}} names a built-in feature {{chicken srfi-0 srfi-2 srfi-6 srfi-8 srfi-9 srfi-10 srfi-17 srfi-23 srfi-30 srfi-39 srfi-55}}, then nothing is done.
 * If {{ID}} names one of the syntactic extensions {{chicken-more-macros chicken-ffi-macros}}, then this extension will be loaded at compile-time, making the syntactic extensions available in compiled code.
-* If {{ID}} names one of the core library units shipped with CHICKEN, or if the option {{-uses ID}} has been passed to the compiler then a {{(declare (uses ID))}} is generated.
+* If {{ID}} names one of the core library units shipped with CHICKEN, or if the option {{-uses ID}} has been passed to the compiler, then a {{(declare (uses ID))}} is generated.
 * If {{ID}} names an installed extension with the {{syntax}} or {{require-at-runtime}} attribute, then the equivalent of {{(require-for-syntax 'ID)}} is performed, and code is emitted to {{(require ...)}} any needed run-time requirements.
 * Otherwise {{(require-extension ID)}} is equivalent to {{(require 'ID)}}.
@@ -483 +483 @@
 The following feature-identifiers are available in all situations: {{(machine-byte-order)}}, {{(machine-type)}}, {{(software-type)}}, {{(software-version)}}, where the actual feature-identifier is platform dependent.
 
-In addition the following feature-identifiers may exist: {{applyhook}}, {{extraslot}}, {{ptables}}, {{dload}}, {{libffi}}.
+In addition the following feature-identifiers may exist: {{applyhook}}, {{extraslot}}, {{ptables}}, {{dload}}.
 
 For further information, see the documentation for [[http://srfi.schemers.org/srfi-0/srfi-0.html|SRFI-0]].

chicken/branches/release/manual/The User's Manual

@@ -3 +3 @@
 == The User's Manual
 
-''(This document describes version 2.702)''
+''(This document describes version 2.739)''
 
 '''CHICKEN is a compiler that translates Scheme source files into C''', which in

chicken/branches/release/manual/Unit eval

@@ -166 +166 @@
 ; [parameter] repository-path :
 Contains a string naming the path to the extension repository, which defaults to
-either the value of the environment variable {{CHICKEN_REPOSITORY}}, the value
-of the environment variable {{CHICKEN_HOME}} or the default library path
+either the value of the environment variable {{CHICKEN_REPOSITORY}}
+or the default library path
 (usually {{/usr/local/lib/chicken}} on UNIX systems).
 
@@ -205 +205 @@
 from one of the following locations:
 
-* the current include path, which defaults to the pathnames given in {{CHICKEN_INCLUDE_PATH}} and {{CHICKEN_HOME}}.
+* the current include path, which defaults to the pathnames given in {{CHICKEN_INCLUDE_PATH}}.
 * the current directory
 
@@ -249 +249 @@
 
 Returns a string given the installation directory (usually {{/usr/local/share/chicken}} on UNIX-like systems).
-If the environment variable {{CHICKEN_HOME}} is set, then its value will be returned. As a last option,
+As a last option,
 if the environment variable {{CHICKEN_PREFIX}} is set, then {{chicken-home}} will return
 {{$CHICKEN_PREFIX/share}}.

chicken/branches/release/manual/Unit extras

@@ -177 +177 @@
 
  [procedure] (fprintf PORT FORMATSTRING ARG ...)
- [procedure] (printf FORMATSTRING ARG)
+ [procedure] (printf FORMATSTRING ARG ...)
  [procedure] (sprintf FORMATSTRING ARG ...)
 
 Simple formatted output to a given port ({{fprintf}}), the
-value of {{(current-output-port)}} ({{printf}}) or a string
+value of {{(current-output-port)}} ({{printf}}), or a string
 ({{sprintf}}).  The {{FORMATSTRING}} can contain any sequence
-of characters. The character `~' prefixes special formatting directives:
+of characters.  There must be at least as many {{ARG}} arguments given as there are format directives that require an argument in {{FORMATSTRING}}.  Extra {{ARG}} arguments are ignored.  The character `~' prefixes special formatting directives:
 
 <table>
@@ -476 +476 @@
 Line-input and -output. {{PORT}} defaults to the value of
 {{(current-input-port)}} and {{(current-output-port)}},
-respectively. if the optional argument {{LIMIT}} is given and
+respectively. If the optional argument {{LIMIT}} is given and
 not {{#f}}, then {{read-line}} reads at most {{LIMIT}}
-characters per line.
+characters per line. {{read-line}} returns a string without the terminating newline and {{write-line}} adds a terminating newline  before outputting.
 
 

chicken/branches/release/manual/Unit library

@@ -4 +4 @@
 == Unit library
 
-This unit contains basic Scheme definitions. This unit is used by default, unless the program
-is compiled with the {{-explicit-use}} option.
+This unit contains basic Scheme definitions. This unit is used by default,
+unless the program is compiled with the {{-explicit-use}} option.
 
 === Arithmetic
@@ -19 +19 @@
 ==== Binary integer operations
 
-Binary integer operations. {{arithmetic-shift}} shifts the argument
-{{N1}} by {{N2}} bits to the left. If {{N2}} is negative, than {{N1}}
-is shifted to the right.  These operations only accept exact integers
-or inexact integers in word range (32 bit signed on 32-bit platforms,
-or 64 bit signed on 64-bit platforms).
+Binary integer operations. {{arithmetic-shift}} shifts the argument {{N1}} by
+{{N2}} bits to the left. If {{N2}} is negative, than {{N1}} is shifted to the
+right. These operations only accept exact integers or inexact integers in word
+range (32 bit signed on 32-bit platforms, or 64 bit signed on 64-bit
+platforms).
 
 ; [procedure] (bitwise-and N1 ...)
@@ -35 +35 @@
  [procedure] (bit-set? N INDEX)
 
-Returns {{#t}} if the bit at the position {{INDEX}} in the integer {{N}} is set,
-or {{#f}} otherwise. The rightmost/least-significant bit is bit 0.
+Returns {{#t}} if the bit at the position {{INDEX}} in the integer {{N}} is
+set, or {{#f}} otherwise. The rightmost/least-significant bit is bit 0.
 
 
@@ -47 +47 @@
 ==== Arithmetic fixnum operations
 
-These procedures do not check their arguments, so non-fixnum
-parameters will result in incorrect results. {{fxneg}} negates its
-argument.
+These procedures do not check their arguments, so non-fixnum parameters will
+result in incorrect results. {{fxneg}} negates its argument.
 
 On division by zero, {{fx/}} and {{fxmod}} signal a condition of kind
@@ -81 +80 @@
 
 In safe mode, these procedures throw a type error with non-float
-arguments (except {{flonum?}}, which returns {{#f}}).  In unsafe mode,
-these procedures do not check their arguments.  A non-flonum argument
+arguments (except {{flonum?}}, which returns {{#f}}). In unsafe mode,
+these procedures do not check their arguments. A non-flonum argument
 in unsafe mode can crash the system.
 
@@ -104 +103 @@
  [procedure] (signum N)
 
-Returns {{1}} if {{N}} is positive, {{-1}} if {{N}} 
+Returns {{1}} if {{N}} is positive, {{-1}} if {{N}}
 is negative or {{0}} if {{N}} is zero. {{signum}} is exactness preserving.
 
@@ -122 +121 @@
  [procedure] (current-output-port [PORT])
 
-Returns default output port.  If {{PORT}} is given, then that port is selected as the new current output port.
-
-Note that the default output port is not buffered.
-Use [[Unit posix#Setting the file buffering mode|{{set-buffering-mode!}}]] if you need a different behaviour.
+Returns default output port. If {{PORT}} is given, then that port is selected
+as the new current output port.
+
+Note that the default output port is not buffered. Use [[Unit posix#Setting the
+file buffering mode|{{set-buffering-mode!}}]] if you need a different behavior.
 
 ==== current-error-port
@@ -131 +131 @@
  [procedure] (current-error-port [PORT])
 
-Returns default error output port. If {{PORT}} is given, then that
-port is selected as the new current error output port.
-
-Note that the default error output port is not buffered.
-Use [[Unit posix#Setting the file buffering mode|{{set-buffering-mode!}}]] if you need a different behaviour.
+Returns default error output port. If {{PORT}} is given, then that port is
+selected as the new current error output port.
+
+Note that the default error output port is not buffered. Use [[Unit
+posix#Setting the file buffering mode|{{set-buffering-mode!}}]] if you need a
+different behavior.
 
 ==== flush-output
@@ -149 +150 @@
  [procedure] (port-name [PORT])
 
-Fetch filename from {{PORT}}. This returns the filename that was
-used to open this file.  Returns a special tag string, enclosed into
-parentheses for non-file ports. {{PORT}} defaults to the value of {{(current-input-port)}}.
+Fetch filename from {{PORT}}. This returns the filename that was used to open
+this file. Returns a special tag string, enclosed into parentheses for
+non-file ports. {{PORT}} defaults to the value of {{(current-input-port)}}.
 
 
@@ -158 +159 @@
  [procedure] (port-position [PORT])
 
-Returns the current position of {{PORT}} as two values: row and
-column number.  If the port does not support such an operation an error
-is signaled. This procedure is currently only available for input ports.
-{{PORT}} defaults to the value of {{(current-input-port)}}.
+Returns the current position of {{PORT}} as two values: row and column number. 
+If the port does not support such an operation an error is signaled. This
+procedure is currently only available for input ports. {{PORT}} defaults to the
+value of {{(current-input-port)}}.
 
 
@@ -172 +173 @@
 
 
-
-
 === Files
-
-
-
 
 ==== delete-file
@@ -203 +199 @@
 
 
-
-
 === String ports
-
-
-
 
 ==== get-output-string
@@ -239 +230 @@
 
 CHICKEN maintains a global list of ''features'' naming functionality available
-int the current system. Additionally the {{cond-expand}} form accesses this
+in the current system. Additionally the {{cond-expand}} form accesses this
 feature list to infer what features are provided. Predefined features are
 {{chicken}}, and the SRFIs (Scheme Request For Implementation) provided by the
@@ -288 +279 @@
 
 Keywords are special symbols prefixed with {{#:}} that evaluate
-to themselves.  Procedures can use keywords to accept optional named
-parameters in addition to normal required parameters.  Assignment to
+to themselves. Procedures can use keywords to accept optional named
+parameters in addition to normal required parameters. Assignment to
 and bindings of keyword symbols is not allowed.
 The parameter {{keyword-style}} and the compiler/interpreter option
@@ -302 +293 @@
 
 Returns the argument from {{ARGLIST}} specified under the keyword
-{{KEYWORD}}.  If the keyword is not found, then the zero-argument
+{{KEYWORD}}. If the keyword is not found, then the zero-argument
 procedure {{THUNK}} is invoked and the result value is returned. If
 {{THUNK}} is not given, {{#f}} is returned.
@@ -344 +335 @@
 
 
-CHICKEN implements the (currently withdrawn) [[http://srfi.schemers.org/srfi-12/srfi-12.html|SRFI-12]]
-exception system. For more information, see the [[http://srfi.schemers.org/srfi-12/srfi-12.html|SRFI-12]]
-document.
+CHICKEN implements the (currently withdrawn)
+[[http://srfi.schemers.org/srfi-12/srfi-12.html|SRFI-12]] exception system. For
+more information, see the
+[[http://srfi.schemers.org/srfi-12/srfi-12.html|SRFI-12]] document.
 
 
@@ -361 +353 @@
 </enscript>
 
-If provided, {{VARIABLE}} will be bound to the signalled exception
+If provided, {{VARIABLE}} will be bound to the signaled exception
 object. {{BODY ...}} is executed when the exception is a property-
 or composite condition with the kinds given {{KIND ...}} (unevaluated).
-If no clause applies, the exception is re-signalled in the same dynamic
+If no clause applies, the exception is re-signaled in the same dynamic
 context as the {{condition-case}} form.
 
@@ -388 +380 @@
  [procedure] (breakpoint [NAME])
 
-Programmatically triggers a breakpoint (similar to the {{,br}} top-level csi command).
-
-
-
-All error-conditions signalled by the system are of kind {{exn}}.
+Programmatically triggers a breakpoint (similar to the {{,br}} top-level csi
+command).
+
+All error-conditions signaled by the system are of kind {{exn}}.
 The following composite conditions are additionally defined:
 
@@ -399 +390 @@
 <tr><td> (exn arity)
 
-Signalled when a procedure is called with the wrong number of arguments.
+Signaled when a procedure is called with the wrong number of arguments.
 
 </td></tr><tr><td> (exn type)
 
-Signalled on type-mismatch errors, for example when an argument of the wrong
-type is passed to a builtin procedure.
+Signaled on type-mismatch errors, for example when an argument of the wrong
+type is passed to a built-in procedure.
 
 </td></tr><tr><td> (exn arithmetic)
 
-Signalled on arithmetic errors, like division by zero.
+Signaled on arithmetic errors, like division by zero.
 
 </td></tr><tr><td> (exn i/o)
 
-Signalled on input/output errors.
+Signaled on input/output errors.
 
 </td></tr><tr><td> (exn i/o file)
 
-Signalled on file-related errors.
+Signaled on file-related errors.
 
 </td></tr><tr><td> (exn i/o net)
 
-Signalled on network errors.
+Signaled on network errors.
 
 </td></tr><tr><td> (exn bounds)
 
-Signalled on errors caused by accessing non-existent elements of a collection.
+Signaled on errors caused by accessing non-existent elements of a collection.
 
 </td></tr><tr><td> (exn runtime)
 
-Signalled on low-level runtime-system error-situations.
+Signaled on low-level runtime-system error-situations.
 
 </td></tr><tr><td> (exn runtime limit)
 
-Signalled when an internal limit is exceeded (like running out of memory).
+Signaled when an internal limit is exceeded (like running out of memory).
 
 </td></tr><tr><td> (exn match)
 
-Signalled on errors raised by failed matches (see the section on {{match}}).
+Signaled on errors raised by failed matches (see the section on {{match}}).
 
 </td></tr><tr><td> (exn syntax)
 
-Signalled on syntax errors.
+Signaled on syntax errors.
 
 </td></tr><tr><td> (exn breakpoint)
 
-Signalled when a breakpoint is reached.
+Signaled when a breakpoint is reached.
 
 </td></tr>
@@ -454 +445 @@
 * All error-exceptions (of the kind {{exn}}) are non-continuable.
 
-* Error-exceptions of the {{exn}} kind have additional {{arguments}} and {{location}} properties that contain the arguments passed to the exception-handler and the name of the procedure where the error occurred (if available).
-
-* When the {{posix}} unit is available and used, then a user-interrupt ({{signal/int}}) signals an exception of the kind {{user-interrupt}}. 
-
-* the procedure {{condition-property-accessor}} accepts an optional third argument. If the condition does not have a value for the desired property and if the optional argument is given, no error is signalled and the accessor returns the third argument.
-
-* In composite conditionss all properties are currently collected in a single property-list, so in the case that to conditions have the same named property, only one will be visible.
+* Error-exceptions of the {{exn}} kind have additional {{arguments}} and
+{{location}} properties that contain the arguments passed to the
+exception-handler and the name of the procedure where the error occurred (if
+available).
+
+* When the {{posix}} unit is available and used, then a user-interrupt
+({{signal/int}}) signals an exception of the kind {{user-interrupt}}.
+
+* the procedure {{condition-property-accessor}} accepts an optional third
+argument. If the condition does not have a value for the desired property and
+if the optional argument is given, no error is signaled and the accessor
+returns the third argument.
+
+* In composite conditions all properties are currently collected in a single
+property-list, so in the case that to conditions have the same named property,
+only one will be visible.
 
 
@@ -475 +475 @@
 the list is a string containing the name of the executing program. The
 other items are the arguments passed to the application. This list is
-freshly created on every invocation of {{(argv)}}.  It depends on
+freshly created on every invocation of {{(argv)}}. It depends on
 the host-shell whether arguments are expanded ('globbed') or not.
 
@@ -486 +486 @@
 (Invokes {{exit-handler}}).
 
-
+Note that pending {{dynamic-wind}} thunks are ''not'' invoked when exiting your program in this way.
 ==== build-platform
 
@@ -530 +530 @@
  [procedure] (machine-byte-order)
 
-Returns the symbol {{little-endian}} or {{big-endian}}, depending on the machine's byte-order.
+Returns the symbol {{little-endian}} or {{big-endian}}, depending on the
+machine's byte-order.
 
 
@@ -557 +558 @@
  [procedure] (on-exit THUNK)
 
-Schedules the zero-argument procexdures {{THUNK}} to be executed before
-the process exits, either explicitly via {{exit}} or implicitly after exection
-of the last toplevel form. Note that finalizers for unreferenced finalized
+Schedules the zero-argument procedures {{THUNK}} to be executed before
+the process exits, either explicitly via {{exit}} or implicitly after execution
+of the last top-level form. Note that finalizers for unreferenced finalized
 data are run before exit procedures.
 
@@ -600 +601 @@
  [procedure] (c-runtime)
 
-Returns a symbol that designates what kind of C runtime library has been linked with this version of the Chicken
-libraries. Possible return values are {{static}}, {{dynamic}} or {{unknown}}. On systems not compiled
-with the Microsoft C compiler, {{c-runtime}} always returns {{unknown}}.
+Returns a symbol that designates what kind of C runtime library has been linked
+with this version of the Chicken libraries. Possible return values are
+{{static}}, {{dynamic}} or {{unknown}}. On systems not compiled with the
+Microsoft C compiler, {{c-runtime}} always returns {{unknown}}.
 
 
@@ -676 +678 @@
 Prints error message, writes all extra arguments to the
 value of {{(current-error-port)}} and invokes the
-current exception-handler.  This conforms to
+current exception-handler. This conforms to
 [[http://srfi.schemers.org/srfi-23/srfi-23.html|SRFI-23]].
 If {{LOCATION}} is given and a symbol, it specifies the ''location'' (the name
@@ -690 +692 @@
 is only generated in code compiled without {{-no-trace}} and evaluated code.
 If the optional argument {{START}} is given, the backtrace starts
-at this offset, i.e. when {{START}} is 1, the next to last trace-entry 
+at this offset, i.e. when {{START}} is 1, the next to last trace-entry
 is printed, and so on. If the optional argument {{THREAD}} is given, then
 the call-chain will only be constructed for calls performed by this thread.
@@ -755 +757 @@
  [procedure] (gc [FLAG])
 
-Invokes a garbage-collection and returns the number of free bytes
-in the heap. The flag specifies whether a minor ({{#f}}) or
-major ({{#t}}) GC is to be triggered. If no argument is given,
-{{#t}} is assumed. An explicit {{#t}} argument will cause all pending finalizers to be executed.
+Invokes a garbage-collection and returns the number of free bytes in the heap.
+The flag specifies whether a minor ({{#f}}) or major ({{#t}}) GC is to be
+triggered. If no argument is given, {{#t}} is assumed. An explicit {{#t}}
+argument will cause all pending finalizers to be executed.
+
 ==== memory-statistics
 
  [procedure] (memory-statistics)
 
-Performs a major garbage collection and returns a three element vector 
+Performs a major garbage collection and returns a three element vector
 containing the total heap size in bytes, the number of bytes currently
 used and the size of the nursery (the first heap generation). Note
@@ -776 +779 @@
 Registers a procedure of one argument {{PROC}}, that will be
 called as soon as the non-immediate data object {{X}} is about to
-be garbage-collected (with that object as its argument).  Note that
+be garbage-collected (with that object as its argument). Note that
 the finalizer will '''not''' be called while interrupts are disabled.
 This procedure returns {{X}}.
@@ -798 +801 @@
 
 
-==== andmap
-
- [procedure] (andmap PROC LIST1 ...)
-
-Repeatedly calls {{PROC}} with arguments taken from {{LIST1 ...}}.  
-If any invocation should return {{#f}}, the result of
-{{andmap}} is {{#f}}. If all invocations return a true result,
-then the result of {{andmap}} is {{#t}}.
-
-
-==== ormap
-
- [procedure] (ormap PROC LIST1 ...)
-
-Repeatedly calls {{PROC}} with arguments taken from {{LIST1 ...}}.  
-If any invocation should return a value different from
-{{#f}}, then this value is returned as the  result of
-{{ormap}}. If all invocations return '''#f''',
-then the result of {{ormap}} is {{#f}}.
-
-
 ==== promise?
 
@@ -835 +817 @@
  [procedure] (reverse-list->string LIST)
 
-Returns a string with the characters in {{LIST}} in reverse order. This is equivalent to
-{{(list->string (reverse LIST))}}, but much more efficient.
+Returns a string with the characters in {{LIST}} in reverse order. This is
+equivalent to {{(list->string (reverse LIST))}}, but much more efficient.
 
 
 
 === Generating uninterned symbols
-
-
 
 ==== gensym
@@ -860 +840 @@
 
 
-
-
 === Standard Input/Output
 
@@ -878 +856 @@
 Outputs the optional arguments {{EXP1 ...}} using {{display}} and
 writes a newline character to the port that is the value of
-{{(current-output-port)}}.  Returns its first argument, or
-{{(void)}} when no supplied arguments.
+{{(current-output-port)}}. Returns {{(void)}}.
 
 
@@ -887 +864 @@
 
 Similar to {{print}}, but does not output a terminating newline
-character and performs a {{flush-outout}} after writing its arguments.
+character and performs a {{flush-output}} after writing its arguments.
 
 
@@ -893 +870 @@
 
 === User-defined named characters
-
-
 
 ==== char-name
@@ -904 +879 @@
 If {{SYMBOL-OR-CHAR}} is a symbol, then {{char-name}} returns
 the character with this name, or {{#f}} if no character is defined
-under this name.  If {{SYMBOL-OR-CHAR}} is a character, then the
+under this name. If {{SYMBOL-OR-CHAR}} is a character, then the
 name of the character is returned as a symbol, or {{#f}} if the
 character has no associated name.
@@ -910 +885 @@
 If the optional argument {{CHAR}} is provided, then
 {{SYMBOL-OR-CHAR}} should be a symbol that will be the new name of
-the given character.  If multiple names designate the same character,
+the given character. If multiple names designate the same character,
 then the {{write}} will use the character name that was defined last.
 
@@ -925 +900 @@
 
 
-
-
 === Blobs
 
@@ -936 +909 @@
  [procedure] (make-blob SIZE)
 
-Returns a blob object of {{SIZE}} bytes,
-aligned on an 8-byte boundry,
-un-initialized.
+Returns a blob object of {{SIZE}} bytes, aligned on an 8-byte boundary,
+uninitialized.
 
 ==== blob?
@@ -967 +939 @@
 
 
-
-
 === Vectors
-
-
 
 ==== vector-copy!
@@ -989 +957 @@
  [procedure] (vector-resize VECTOR N [INIT])
 
-Creates and returns a new vector with the contents of {{VECTOR}} and length {{N}}.
-If {{N}} is greater than the original length of {{VECTOR}}, then all additional
-items are initialized to {{INIT}}. If {{INIT}} is not specified, the
+Creates and returns a new vector with the contents of {{VECTOR}} and length
+{{N}}. If {{N}} is greater than the original length of {{VECTOR}}, then all
+additional items are initialized to {{INIT}}. If {{INIT}} is not specified, the
 contents are initialized to some unspecified value.
 
 
 
-
-
 === The unspecified value
 
-
-
 ==== void
 
@@ -1010 +974 @@
 
 
-
-
 === Continuations
 
-
-
 ==== call/cc
 
@@ -1027 +987 @@
  [procedure] (continuation-capture PROCEDURE)
 
-Creates a continuation object representing the current continuation and tail-calls 
-{{PROCEDURE}} with this continuation as the single argument.
+Creates a continuation object representing the current continuation and
+tail-calls {{PROCEDURE}} with this continuation as the single argument.
 
 More information about this continuation API can be found in the paper
-[[http://repository.readscheme.org/ftp/papers/sw2001/feeley.pdf]] ''A Better API for first class
-Continuations'' by Marc Feeley.
+[[http://repository.readscheme.org/ftp/papers/sw2001/feeley.pdf]] ''A Better
+API for first class Continuations'' by Marc Feeley.
 
 
@@ -1039 +999 @@
  [procedure] (continuation? X)
 
-Returns {{#t}} if {{X}} is a continuation object, or {{#f}} otherwise.
+Returns {{#t}} if {{X}} is a continuation object, or {{#f}} otherwise. Please
+note that this applies only to continuations created by the Continuation API,
+but not by call/cc, i.e.: {{(call-with-current-continuation continuation?)}}
+returns {{#f}}, whereas {{(continuation-capture continuation?)}} returns
+{{#t}}.
 
 
@@ -1068 +1032 @@
 === Setters
 
-SRFI-17 is fully implemented. For more information see: [[http://srfi.schemers.org/srfi-17/srfi-17.html|SRFI-17]].
+SRFI-17 is fully implemented. For more information see:
+[[http://srfi.schemers.org/srfi-17/srfi-17.html|SRFI-17]].
 
 ==== setter
@@ -1074 +1039 @@
  [procedure] (setter PROCEDURE)
 
-Returns the setter-procedure of {{PROCEDURE}}, or signals an error if {{PROCEDURE}}
-has no associated setter-procedure.
-
-Note that {{(set! (setter PROC) ...)}} for a procedure that has no associated setter procedure
-yet is a very slow operation (the old procedure is replaced by a modified copy, which involves a
-garbage collection).
+Returns the setter-procedure of {{PROCEDURE}}, or signals an error if
+{{PROCEDURE}} has no associated setter-procedure.
+
+Note that {{(set! (setter PROC) ...)}} for a procedure that has no associated
+setter procedure yet is a very slow operation (the old procedure is replaced by
+a modified copy, which involves a garbage collection).
 
 
@@ -1086 +1051 @@
  [procedure] (getter-with-setter GETTER SETTER)
 
-Returns a copy of the procedure {{GETTER}} with the associated setter procedure {{SETTER}}.
-Contrary to the SRFI specification, the setter of the returned procedure may be changed.
+Returns a copy of the procedure {{GETTER}} with the associated setter procedure
+{{SETTER}}. Contrary to the SRFI specification, the setter of the returned
+procedure may be changed.
+
 
 
 === Reader extensions
-
-
 
 ==== define-reader-ctor
@@ -1106 +1071 @@
  [procedure] (set-read-syntax! CHAR-OR-SYMBOL PROC)
 
-When the reader is encounting the non-whitespace character {{CHAR}} while reading
+When the reader encounters the non-whitespace character {{CHAR}} while reading
 an expression from a given port, then the procedure {{PROC}} will be called with
 that port as its argument. The procedure should return a value that will be returned
@@ -1166 +1131 @@
 
 
+=== Property lists
+
+As in other Lisp dialects, CHICKEN supports "property lists" associated with symbols.
+Properties are accessible via a key that can be any kind of value but which will
+be compared using {{eq?}}.
+
+==== get
+
+  [procedure] (get SYMBOL PROPERTY [DEFAULT])
+
+Returns the value stored under the key {{PROPERTY}} in the property
+list of {{SYMBOL}}. If no such property is stored, returns
+{{DEFAULT}}. The {{DEFAULT}} is optional and defaults to {{#f}}.
+
+==== put!
+
+  [procedure] (put! SYMBOL PROPERTY VALUE)
+  [setter] (set! (get SYMBOL PROPERTY) VALUE)
+
+Stores {{VALUE}} under the key {{PROPERTY}} in the property list of
+{{SYMBOL}} replacing any previously stored value.
+
+==== remprop!
+
+  [procedure] (remprop! SYMBOL PROPERTY)
+
+Deletes the first property matching the key {{PROPERTY}} in the property list
+of {{SYMBOL}}. Returns {{#t}} when a deletion performed, and {{#f}} otherwise.
+
+==== symbol-plist
+
+  [procedure] (symbol-plist SYMBOL)
+  [setter] (set! (symbol-plist SYMBOL) LST)
+
+Returns the property list of {{SYMBOL}} or sets it.
+
+==== get-properties
+
+  [procedure] (get-properties SYMBOL PROPERTIES)
+
+Searches the property list of {{SYMBOL}} for the first property with a key in
+the list {{PROPERTIES}}. Returns 3 values: the matching property key, value,
+and the tail of property list after the matching property. When no match found
+all values are {{#f}}.
+
+{{PROPERTIES}} may also be an atom, in which case it is treated as a list of
+one element.
+
 
 Previous: [[Parameters]]

chicken/branches/release/manual/Unit posix

@@ -12 +12 @@
 All errors related to failing file-operations will signal a condition
 of kind {{(exn i/o file)}}.
+
+
+=== Constants
+
+==== File-control Commands
+
+===== fcntl/dupfd
+===== fcntl/getfd
+===== fcntl/setfd
+===== fcntl/getfl
+===== fcntl/setfl
+
+==== Standard I/O file-descriptors
+
+===== fileno/stdin
+===== fileno/stdout
+===== fileno/stderr
+
+==== Open flags
+
+===== open/rdonly
+===== open/wronly
+===== open/rdwr
+===== open/read
+===== open/write
+===== open/creat
+===== open/append
+===== open/excl
+===== open/noctty
+===== open/nonblock
+===== open/trunc
+===== open/sync
+===== open/fsync
+===== open/binary
+===== open/text
+
+==== Permission bits
+
+===== perm/irusr
+===== perm/iwusr
+===== perm/ixusr
+===== perm/irgrp
+===== perm/iwgrp
+===== perm/ixgrp
+===== perm/iroth
+===== perm/iwoth
+===== perm/ixoth
+===== perm/irwxu
+===== perm/irwxg
+===== perm/irwxo
+===== perm/isvtx
+===== perm/isuid
+===== perm/isgid
+
 
 === Directories
@@ -141 +195 @@
 
 <enscript highlight=scheme>
-(with-output-to-pipe 
+(with-output-to-pipe
   "gs -dNOPAUSE -sDEVICE=jpeg -dBATCH -sOutputFile=signballs.jpg -g600x600 -q -"
   (lambda ()
@@ -207 +261 @@
 together).  The optional {{MODE}} should be a bitmask composed of one
 or more permission values like {{perm/irusr}} and is only relevant
-when a new file is created. The default mode is 
+when a new file is created. The default mode is
 {{perm/irwxu | perm/irgrp | perm/iroth}}.
 
@@ -268 +322 @@
 ==== file-control
 
- [procedure] (file-control FILENO COMMAND  [ARGUMENT])
+ [procedure] (file-control FILENO COMMAND [ARGUMENT])
 
 Performs the fcntl operation {{COMMAND}} with the given
 {{FILENO}} and optional {{ARGUMENT}}. The return value is
 meaningful depending on the {{COMMAND}}.
-
-==== fcntl/dupfd
-==== fcntl/getfd
-==== fcntl/setfd
-==== fcntl/getfl
-==== fcntl/setfl
-
-These variables contain commands for {{file-control}}.
-
-==== fileno/stdin
-==== fileno/stdout
-==== fileno/stderr
-
-These variables contain file-descriptors for the standard I/O files.
-
-==== open/rdonly
-==== open/wronly
-==== open/rdwr
-==== open/read 
-==== open/write 
-==== open/creat
-==== open/append 
-==== open/excl
-==== open/noctty 
-==== open/nonblock 
-==== open/trunc
-==== open/sync
-==== open/fsync
-==== open/binary
-==== open/text
-
-Flags for use with {{file-open}}.
 
 ==== open-input-file*
@@ -354 +376 @@
 not {{#f}}, then the file-statistics vector will be resolved for
 symbolic links (otherwise symbolic links are not resolved).
+Note that for very large files, the {{file-size}} value may be an
+inexact integer.
 
 ==== file-position
@@ -368 +392 @@
 Returns the size of the file designated by {{FILE}}.  {{FILE}}
 may be a filename or a file-descriptor.  If the file does not exist,
-an error is signaled.
+an error is signaled. Note that for very large files, {{file-size}} may
+return an inexact integer.
 
 ==== regular-file?
@@ -375 +400 @@
 
 Returns true, if {{FILENAME}} names a regular file (not a directory or symbolic link).
+
+==== file-owner
+
+ [procedure] (file-owner FILE)
+
+Returns the user-id of {{FILE}}.  {{FILE}} may be a filename
+or a file-descriptor.
+
+==== file-permissions
+
+ [procedure] (file-permissions FILE)
+
+Returns the permission bits for {{FILE}}. You can test this value
+by performing bitwise operations on the result and the {{perm/...}}
+values.  {{FILE}} may be a filename or a file-descriptor.
+
+==== file-read-access?
+==== file-write-access?
+==== file-execute-access?
+
+ [procedure] (file-read-access? FILENAME)
+ [procedure] (file-write-access? FILENAME)
+ [procedure] (file-execute-access? FILENAME)
+
+These procedures return {{#t}} if the current user has read,
+write or execute permissions on the file named {{FILENAME}}.
 
 
@@ -402 +453 @@
 Exceptions: {{(exn bounds)}}, {{(exn i/o file)}}
 
+==== change-file-mode
+
+ [procedure] (change-file-mode FILENAME MODE)
+
+Changes the current file mode of the file named {{FILENAME}}
+to {{MODE}} using the {{chmod()}} system call.  The
+{{perm/...}} variables contain the various permission bits and can
+be combinded with the {{bitwise-ior}} procedure.
+
+==== change-file-owner
+
+ [procedure] (change-file-owner FILENAME UID GID)
+
+Changes the owner information of the file named {{FILENAME}} to
+the user- and group-ids {{UID}} and {{GID}} (which should be
+exact integers) using the {{chown()}} system call.
+
 
 === Processes
@@ -416 +484 @@
 
 Returns the process ID of the parent of the current process.
+
+==== process-group-id
+
+ [procedure] (process-group-id PID)
+
+Returns the process group ID of the process specified by {{PID}}.
 
 ==== process-execute
@@ -512 +586 @@
 if a signal occurred.
 
+==== create-session
+
+ [procedure] (create-session)
+
+Creates a new session if the calling process is not a process group leader and returns
+the session ID.
+
 
 === Hard and symbolic links
@@ -541 +622 @@
 
 
-=== Permissions
-
-==== file-owner
-
- [procedure] (file-owner FILE)
-
-Returns the user-id of {{FILE}}.  {{FILE}} may be a filename
-or a file-descriptor.
-
-==== file-permissions
-
- [procedure] (file-permissions FILE)
-
-Returns the permission bits for {{FILE}}. You can test this value
-by performing bitwise operations on the result and the {{perm/...}}
-values.  {{FILE}} may be a filename or a file-descriptor.
-
-==== file-read-access?
-==== file-write-access?
-==== file-execute-access?
-
- [procedure] (file-read-access? FILENAME)
- [procedure] (file-write-access? FILENAME)
- [procedure] (file-execute-access? FILENAME)
-
-These procedures return {{#t}} if the current user has read,
-write or execute permissions on the file named {{FILENAME}}.
-
-==== change-file-mode
-
- [procedure] (change-file-mode FILENAME MODE)
-
-Changes the current file mode of the file named {{FILENAME}}
-to {{MODE}} using the {{chmod()}} system call.  The
-{{perm/...}} variables contain the various permission bits and can
-be combinded with the {{bitwise-ior}} procedure.
-
-==== change-file-owner
-
- [procedure] (change-file-owner FILENAME UID GID)
-
-Changes the owner information of the file named {{FILENAME}} to
-the user- and group-ids {{UID}} and {{GID}} (which should be
-exact integers) using the {{chown()}} system call.
+=== Retrieving user & group information
 
 ==== current-user-id
-==== current-group-id
-==== current-effective-user-id
-==== current-effective-group-id
 
  [procedure] (current-user-id)
  [setter] (set! (current-user-id) UID)
+
+Get or set the real user-id of the current process.
+
+==== current-effective-user-id
+
+ [procedure] (current-effective-user-id)
+ [setter] (set! (current-effective-user-id) UID)
+
+Get or set the effective user-id of the current process.
+
+==== user-information
+
+ [procedure] (user-information USER [AS-VECTOR])
+
+If {{USER}} specifes a valid username (as a string) or user ID, then the user
+database is consulted and a list of 7 values are returned: the user-name, the
+encrypted password, the user ID, the group ID, a user-specific string, the home
+directory and the default shell. When {{AS-VECTOR}} is {{#t}} a vector of 7
+elements is returned instead of a list. If no user with this name or id then
+{{#f}} is returned.
+
+==== current-group-id
+
  [procedure] (current-group-id)
  [setter] (set! (current-group-id) GID)
- [procedure] (current-effective-user-id)
- [setter] (set! (current-effective-user-id) UID)
+
+Get or set the real group-id of the current process.
+
+==== current-effective-group-id
+
  [procedure] (current-effective-group-id)
  [setter] (set! (current-effective-group-id) GID)
 
-Get or set the real/effective user- and group-ids of the current process.
-
-==== process-group-id
-
- [procedure] (process-group-id PID)
-
-Returns the process group ID of the process specified by {{PID}}.
+Get or set the effective group-id of the current process.
+ID can be found, then {{#f}} is returned.
 
 ==== group-information
@@ -623 +679 @@
 Returns a list with the supplementary group IDs of the current user.
 
+
+=== Changing user & group information
+
 ==== set-groups!
 
@@ -635 +694 @@
  [procedure] (initialize-groups USERNAME BASEGID)
 
-Sets the supplementrary group IDs of the current user to the IDs from the user with name {{USERNAME}} 
+Sets the supplementrary group IDs of the current user to the IDs from the user with name {{USERNAME}}
 (a string), including {{BASEGID}}.
 
 Only the superuser may invoke this procedure.
-
-==== perm/irusr
-==== perm/iwusr
-==== perm/ixusr
-==== perm/irgrp
-==== perm/iwgrp
-==== perm/ixgrp
-==== perm/iroth
-==== perm/iwoth
-==== perm/ixoth
-==== perm/irwxu
-==== perm/irwxg
-==== perm/irwxo
-==== perm/isvtx
-==== perm/isuid
-==== perm/isgid
-
-These variables contain permission bits as used in {{change-file-mode}}.
 
 ==== set-process-group-id!
@@ -664 +705 @@
 
 Sets the process group ID of the process specifed by {{PID}} to {{PGID}}.
-
-==== user-information
-
- [procedure] (user-information USER)
-
-If {{USER}} specifes a valid username (as a string) or user ID, then
-the user database is consulted and a list of 7 values are returned: the user-name,
-the encrypted password, the user ID, the group ID, a user-specific string,
-the home directory and the default shell. If no user with this name or
-ID can be found, then {{#f}} is returned.
-
-==== create-session
-
- [procedure] (create-session)
-
-Creates a new session if the calling process is not a process group leader and returns
-the session ID.
 
 
@@ -813 +837 @@
 
 Returns a association list of the environment variables and their
-current values. 
+current values.
 
 ==== setenv
@@ -989 +1013 @@
 Recursively traverses the contents of {{DIRECTORY}} (which should
 be a string) and invokes the procedure {{ACTION}} for all files
-for which the procedure {{PREDICATE}} is true.  {{PREDICATE}}
+in which the procedure {{PREDICATE}} is true.  {{PREDICATE}}
 may me a procedure of one argument or a regular-expression string.
 {{ACTION}} should be a procedure of two arguments: the currently
@@ -995 +1019 @@
 {{ACTION}}, or, if this is the first invocation, the value
 of {{IDENTITY}}. {{ACTION}} defaults to {{cons}},
-{{IDENTITY}} defaults to {{()}}.  {{LIMIT}} should a
+{{IDENTITY}} defaults to {{()}}.  {{LIMIT}} should be a
 procedure of one argument that is called for each nested directory
 and which should return true, if that directory is to be traversed
 recursively. {{LIMIT}} may also be an exact integer that
-gives the maximum recursion depth. A depth of {{0}} means the
-files in the specified directory are traversed but not any nested
-directories. {{LIMIT}} may also be {{#f}} (the default),
+gives the maximum recursion depth. For example, a depth of {{0}} means that only files in the top-level, specified directory are to be traversed. In this case, all nested directories are ignored.  {{LIMIT}} may also be {{#f}} (the default),
 which is equivalent to {{(constantly #t)}}.
 
@@ -1257 +1279 @@
  process-group-id  set-process-group-id!
  create-symbolic-link  read-symbolic-link
- file-truncate 
+ file-truncate
  file-lock  file-lock/blocking  file-unlock  file-test-lock
  create-fifo  fifo?
@@ -1266 +1288 @@
  terminal-port?  terminal-name
  process-fork  process-signal
- parent-process-id 
+ parent-process-id
  set-root-directory!
  utc-time->seconds
@@ -1285 +1307 @@
 
 These variables contains special flags that specify the exact semantics of {{process-spawn}}:
-{{spawn/overlay}} replaces the current process with the new one. 
-{{spawn/wait}} suspends execution of the current process until the spawned process returns. 
+{{spawn/overlay}} replaces the current process with the new one.
+{{spawn/wait}} suspends execution of the current process until the spawned process returns.
 {{spawn/nowait}} does the opposite ({{spawn/nowaito}} is identical, according to the Microsoft
 documentation) and runs the process asynchronously.

chicken/branches/release/manual/Unit regex

@@ -71 +71 @@
 
 
+=== regexp*
+
+ [procedure] (regexp* STRING [OPTIONS [TABLES]])
+
+Returns a precompiled regular expression object for {{string}}. The optional
+argument {{OPTIONS}} must be a list of option symbols. The optional argument
+{{TABLES}} must be a character definitions table (not defined here).
+
+
+Option Symbols:
+
+; caseless : Character case insensitive match
+; multiline : Equivalent to Perl's /m option
+; dotall : Equivalent to Perl's /s option
+; extended : Ignore whitespace
+; anchored : Anchor pattern match
+; dollar-endonly : `$' metacharacter in the pattern matches only at the end of the subject string
+; extra : Currently of very little use
+; notbol : First character of the string is not the beginning of a line
+; noteol : End of the string is not the end of a line
+; ungreedy : Inverts the "greediness" of the quantifiers so that they are not greedy by default
+; notempty : The empty string is not considered to be a valid match
+; utf8 : UTF-8 encoded characters
+; no-auto-capture : Disables the use of numbered capturing parentheses
+; no-utf8-check : Skip valid UTF-8 sequence check
+; auto-callout : Automatically inserts callout items (not defined here)
+; partial : Partial match ok
+; firstline : An unanchored pattern is required to match before or at the first newline
+; dupnames : Names used to identify capturing subpatterns need not be unique
+; newline-cr : Newline definition is `\r'
+; newline-lf : Newline definition is `\n'
+; newline-crlf : Newline definition is `\r\n'
+; newline-anycrlf : Newline definition is any of `\r', `\n', or `\r\n'
+; newline-any : ewline definition is any Unicode newline sequence
+; bsr-anycrlf : `\R' escape sequence matches only CR, LF, or CRLF
+; bsr-unicode : `\R' escape sequence matches only Unicode newline sequence
+
+; dfa-shortest : Currently unused
+; dfa-restart : Currently unused
+
+
 === regexp?
 
@@ -77 +118 @@
 Returns {{#t}} if {{X}} is a precompiled regular expression,
 or {{#f}} otherwise.
+
+
+=== regexp-optimize
+
+ [procedure] (regexp-optimize RX)
+ 
+Perform available optimizations for the precompiled regular expression {{RX}}.
+Returns {{#t}} when optimization performed, and {{#f}} otherwise.
 
 
@@ -134 +183 @@
   => ("this" "is" "a" "string" "1," "2," "3,")
 
-(string-split-fields "," s #:suffix))
+(string-split-fields "," s #:suffix)
  
   => ("this is a string 1" " 2" " 3")
@@ -175 +224 @@
 <enscript highlight=scheme>
 (string-substitute* "<h1>Hello, world!</h1>"
-                    '(("<[/A-Za-z0-9]+>" . ""))))
+                    '(("<[/A-Za-z0-9]+>" . "")))
 
 =>  "Hello, world!"
@@ -194 +243 @@
 
 
+=== make-anchored-pattern
+
+ [procedure] (make-anchored-pattern REGEXP [WITHOUT-BOL [WITHOUT-EOL]])
+
+Makes an anchored pattern from {{REGEXP}} (a string or a precompiled regular
+expression) and returns the updated pattern. When {{WITHOUT-BOL}} is {{#t}} the
+beginning-of-line anchor is not added. When {{WITHOUT-EOL}} is {{#t}} the
+end-of-line anchor is not added.
+
+The {{WITHOUT-BOL}} and {WITHOUT-EOL}} arguments are ignored for a precompiled regular
+expression.
+
+
 Previous: [[Unit match]]
 

chicken/branches/release/manual/Unit srfi-18

@@ -70 +70 @@
 Readies the suspended thread {{THREAD}}.
 
+=== thread-wait-for-i/o!
+
+ [procedure] (thread-wait-for-i/o! FD [MODE])
+
+Suspends the current thread until input ({{MODE}} is {{#:input}}), output ({{MODE}} is {{#:output}})
+or both ({{MODE}} is {{#:all}}) is available. {{FD}} should be a file-descriptor (not a port!) open
+for input or output, respectively.
+
 === time->milliseconds
 

chicken/branches/release/manual/Unit utils

@@ -143 +143 @@
 
 Calls {{PROCEDURE}} for each line read from {{PORT}} (which defaults to the
-value of {{(current-input-port)}}. The argument passed to {{PORCEDURE}}
+value of {{(current-input-port)}}. The argument passed to {{PROCEDURE}}
 is a string with the contents of the line, excluding any line-terminators.
 When all input has been read from the port, {{for-each-line}} returns some unspecified value.
@@ -230 +230 @@
 ===  Miscellaneous handy things
 
-==== shift!
+==== shift! DEPRECATED
 
  [procedure] (shift! LIST [DEFAULT])
@@ -245 +245 @@
 The list must contain at least 2 elements.
 
-==== unshift!
+==== unshift! DEPRECATED
 
  [procedure] (unshift! X PAIR)

chicken/branches/release/manual/Using the compiler

@@ -36 +36 @@
 
 ; -check-syntax : Aborts compilation process after macro-expansion and syntax checks.
-
-; -compress-literals THRESHOLD : Compiles quoted literals that exceed the size {{THRESHOLD}} as strings and parse the strings at run-time. This reduces the size of the code and speeds up compile-times of the host C compiler, but has a small run-time performance penalty. The size of a literal is computed by counting recursively the objects in the literal, so a vector counts as 1 plus the count of the elements, a pair counts as the counts of the car and the cdr, respectively. All other objects count 1.
 
 ; -debug MODES : Enables one or more compiler debugging modes. {{MODES}} is a string of characters that select debugging information about the compiler that will be printed to standard output.
@@ -124 +122 @@
 ; -import FILENAME : Read exports from linked or loaded libraries from given file. See also {{-check-imports}}. This is equivalent to declaring {{(declare (import FILENAME))}}. Implies {{-check-imports}}.
 
-; -include-path PATHNAME : Specifies an additional search path for files included via the {{include}} special form. This option may be given multiple times. If the environment variable {{CHICKEN_INCLUDE_PATH}} is set, it should contain a list of alternative include pathnames separated by {{;}}. The environment variable {{CHICKEN_HOME}} is also considered as a search path.
+; -include-path PATHNAME : Specifies an additional search path for files included via the {{include}} special form. This option may be given multiple times. If the environment variable {{CHICKEN_INCLUDE_PATH}} is set, it should contain a list of alternative include pathnames separated by {{;}}.
 
 ; -inline : Enable procedure inlining for known procedures of a size below the threshold (which can be set through the {{-inline-limit}} option).
 
-; -inline-limit THRESHOLD : Sets the maximum size of a potentially inlinable procedure. This option is only effective when inlining has been enabled with the {{-inline}} option. The default threshold is {{10}}.
+; -inline-limit THRESHOLD : Sets the maximum size of a potentially inlinable procedure. The default threshold is {{10}}.
 
 ; -keyword-style STYLE : Enables alternative keyword syntax, where {{STYLE}} may be either {{prefix}} (as in Common Lisp), {{suffix}} (as in DSSSL) or {{none}}. Any other value is ignored. The default is {{suffix}}.
@@ -397 +395 @@
 Linux or FreeBSD:
 
-Let's take a simple "Hello, world!":
+Let's take a simple example.
 
 <enscript highlight=scheme>
@@ -405 +403 @@
 </enscript>
 
+  % chicken hello.scm -optimize-level 3 -output-file hello.c
+
 Compiled to C, we get {{hello.c}}. We need the files {{chicken.h}} and
-{{runtime.c}}, which contain the basic runtime system, plus the three basic library
-files {{library.c}}, {{eval.c}} and {{extras.c}} which contain the same functionality as the
-library linked into a plain CHICKEN-compiled application, or which is available by default in the
+{{runtime.c}}, which contain the basic runtime system, plus the three
+basic library files {{library.c}}, {{eval.c}} and {{extras.c}} which
+contain the same functionality as the library linked into a plain
+CHICKEN-compiled application, or which is available by default in the
 interpreter, {{csi}}:
 
- % csc hello.scm -O2 -d1
-
-A simple makefile is needed as well:
-
-<enscript highlight=makefile>
-# Makefile for UNIX systems
-
-hello: hello.o runtime.o library.o eval.o extras.o
-       $(CC) -o hello hello.o runtime.o library.o eval.o extras.o -lm
-
-hello.o: chicken.h
-runtime.o: chicken.h
-library.o: chicken.h
-eval.o: chicken.h
-extras.o: chicken.h
-</enscript>
+  % cd /tmp
+  %echo '(print "Hello World.")' > hello.scm
+  % cp $CHICKEN_BUILD/runtime.c .
+  % cp $CHICKEN_BUILD/library.c .
+  % cp $CHICKEN_BUILD/eval.c    .
+  % cp $CHICKEN_BUILD/extras.c  .
+  % gcc -static -Os -fomit-frame-pointer runtime.c library.c eval.c \
+    extras.c hello.c -o hello -lm
 
 Now we have all files together, and can create an tarball containing all the files:
@@ -433 +426 @@
  % gzip hello.tar
 
-This is of naturally rather simplistic. Things like enabling dynamic loading, estimating
+This is naturally rather simplistic. Things like enabling dynamic loading, estimating
 the optimal stack-size and selecting supported features of the host system would need
 more configuration- and build-time support. All this can be addressed using more

chicken/branches/release/manual/Using the interpreter

@@ -32 +32 @@
 ; -h  -help : Write a summary of the available command line options to standard output and exit.
 
-; -I  -include-path PATHNAME : Specifies an alternative search-path for files included via the {{include}} special form. This option may be given multiple times. If the environment variable {{CHICKEN_INCLUDE_PATH}} is set, it should contain a list of alternative include pathnames separated by {{;}}. The environment variable {{CHICKEN_HOME}} is also considered as a search path.
+; -I  -include-path PATHNAME : Specifies an alternative search-path for files included via the {{include}} special form. This option may be given multiple times. If the environment variable {{CHICKEN_INCLUDE_PATH}} is set, it should contain a list of alternative include pathnames separated by {{;}}.
 
 ; -k  -keyword-style STYLE : Enables alternative keyword syntax, where {{STYLE}} may be either {{prefix}} (as in Common Lisp) or {{suffix}} (as in DSSSL). Any other value is ignored.
@@ -40 +40 @@
 ; -w  -no-warnings : Disables any warnings that might be issued by the reader or evaluated code.
 
-; -q  -quiet : Do not print a startup message.
+; -q  -quiet : Do not print a startup message. Also disables generation of call-trace information for interpreted code.
 
 ; -s  -script PATHNAME : This is equivalent to {{-batch -quiet -no-init PATHNAME}}. Arguments following {{PATHNAME}} are available by using  {{command-line-arguments}} and are not processed as interpreter options. Extra options in the environment variable {{CSI_OPTIONS}} are ignored.
@@ -155 +155 @@
 #;5> (fac 3)                        ==> 6
 </enscript>
+k
 
 ; ,utr SYMBOL ... : Disables tracing of the given toplevel procedures.
@@ -203 +204 @@
 
  #;1> (define-record point x y)
- #;2> (set-describer! 'point (lambda (pt o) (print "a point with x=" (point-x pt) " and y=" (point-y pt))))
+ #;2> (set-describer! 'point 
+        (lambda (pt o)
+          (print "a point with x=" (point-x pt) " and y=" (point-y pt))))
  #;3> ,d (make-point 1 2)
  a point with x=1 and y=2
@@ -220 +223 @@
  (use readline regex)
  (current-input-port (make-gnu-readline-port))
- (gnu-history-install-file-manager (string-append (or (getenv "HOME") ".") "/.csi.history"))
+ (gnu-history-install-file-manager 
+   (string-append (or (getenv "HOME") ".") "/.csi.history"))
 
 More details are available in [[http://www.call-with-current-continuation.org/eggs/readline.html|the egg's documentation]].

chicken/branches/release/manual/chicken-setup

@@ -81 +81 @@
 
 The optional argument {{INFOLIST}} should be an association list that
-maps symbols to values, this list will be stored as {{ID.setup}} at the same
+maps symbols to values, this list will be stored as {{ID.setup-info}} at the same
 location as the extension code. Currently the following properties are used:
 
@@ -118 +118 @@
 
 Copies the given files into the examples directory, which is usually 
-{{$prefix/share/chicken/examples}} (equivalent to {{$CHICKEN_HOME/examples}}
+{{$prefix/share/chicken/examples}}
 or {{(make-pathname (chicken-home) "examples")}}).
 
@@ -270 +270 @@
 
 Holds the path where executables are installed and defaults to either {{$CHICKEN_PREFIX/bin}},
-if the environment variable {{CHICKEN_PREFIX}} is set, {{$CHICKEN_HOME}} or the
+if the environment variable {{CHICKEN_PREFIX}} is set or the
 path where the CHICKEN binaries ({{chicken}}, {{csi}}, etc.) are installed.
 
@@ -325 +325 @@
  [procedure] (cross-chicken)
 
-Retrusn {{#t}} if this system is configured for cross-compilation or {{#f}}
+Returns {{#t}} if this system is configured for cross-compilation or {{#f}}
 otherwise.
+
+
+==== host-extension
+
+ [parameter] host-extension
+
+For a cross-compiling CHICKEN, when compiling an extension, then it
+should be built for the host environment (as opposed to the target
+environment). This parameter is controlled by the {{-host-extension}} command-line
+option. A setup script should perform the proper steps of compiling any
+code by passing {{-host}} when invoking {{csc}} or using the {{compile}}
+macro.
 
 
@@ -515 +527 @@
 ; {{-r  -run FILENAME}} : Load and execute given file.
 ; {{-s  -script FILENAME}} :Executes the given Scheme source file with all remaining arguments and exit. The ''she-bang'' shell script header is recognized, so you can write Scheme scripts that use {{chicken-setup}} just as with {{csi}}.
-; {{-e  -eval EXPRESSION}} : Evaluates the given expression(s).
-; {{-v  -verbose}} : Display additional debug information.
-; {{-k  -keep}} : Keep temporary files and directories.
-; {{-c  -csc-option OPTION}} : Passes {{OPTION}} as an extra argument to invocations of the compiler-driver ({{csc}}). This works only if {{csc}} is invoked as {{(run (csc ...))}}.
-; {{-d  -dont-ask}} : Do not ask the user before trying to download required extensions.
-; {{-n  -no-install}} : Do not install generated binaries and/or support files. Any invocations of {{install-program}}, {{install-extension}} or {{install-script}} will be be no-ops. 
-; {{-i  -docindex}} : Displays the path to the index-page of any installed extension-documentation. If the index page does not exist, it is created.
+; {{-e  -eval EXPRESSION}} : Evaluates the given expression(s)
+; {{-v  -verbose}} : Display additional debug information
+; {{-k  -keep}} : Keep temporary files and directories
+; {{-c  -csc-option OPTION}} : Passes {{OPTION}} as an extra argument to invocations of the compiler-driver ({{csc}}); this works only if {{csc}} is invoked as {{(run (csc ...))}}
+; {{-d  -dont-ask}} : Do not ask the user before trying to download required extensions
+; {{-n  -no-install}} : Do not install generated binaries and/or support files; any invocations of {{install-program}}, {{install-extension}} or {{install-script}} will be be no-ops
+; {{-i  -docindex}} : Displays the path to the index-page of any installed extension-documentation; if the index page does not exist, it is created
 ; {{-t  -test EXTENSION ...}} : return success if all given extensions are installed
 ; {{-ls EXTENSION}} : List installed files for extension
 ; {{-fetch-tree}} : Download and print the repository catalog
-; {{-t  -test}} : If the extension sources contain a directory named {{tests}} and this directory includes a file named {{run.scm}} then this file is executed (with {{tests}} being the current working directory).
+; {{-create-tree DIRECTORY}} : Create a fresh, minimal repository catalog and writes it to stdout
+; {{-t  -test}} : If the extension sources contain a directory named {{tests}} and this directory includes a file named {{run.scm}} then this file is executed (with {{tests}} being the current working directory)
 ; {{-tree FILENAME}} : Download and show the repository catalog
 ; {{-svn URL}} : Fetch extension from [[http://subversion.tigris.org|Subversion]] repository
@@ -531 +544 @@
 ; {{-local PATHNAME}} : Fetch extension from local file
 ; {{-destdir PATHNAME}} : Specify alternative installation prefix (for packaging)
-; {{--}} : Ignore all following arguments.
+; {{-host-extension}} : Compile extension in "host" mode (sets the parameter {{host-extension}} to {{#f}})
+; {{--}} : Ignore all following arguments
 
 Note that the options are processed exactly in the order in which they appear in the command-line.
@@ -543 +557 @@
 {{chicken-setup -fetch}}) and extract its contents with a separate
 program (like {{winzip}}). the {{CHICKEN_REPOSITORY}} environment
-variable has to be set (in addition to {{CHICKEN_HOME}}) to a
+variable has to be set to a
 directory where your compiled extensions should be located.
 

chicken/branches/release/manual/faq

@@ -95 +95 @@
 
 There is an extension based on the GNU Multiprecision Package that implements most of the full
-numeric tower, see http://www.call-with-current-continuation.org/eggs/numbers.html.
+numeric tower, see [[numbers]].
 
 
@@ -488 +488 @@
 
 Under CHICKENs implementation policy, tail recursion is achieved simply by avoiding
-to return from a function call. Since the programs is CPS converted, a continuous 
+to return from a function call. Since the programs are CPS converted, a continuous 
 sequence of nested procedure calls is performed. At some stage the stack-space has
 to run out and the current procedure and its parameters (including the current
@@ -535 +535 @@
 
 <enscript highlight=scheme>
-; The regex egg is required for ##csi#name-of-symbols-starting-with
-(require 'readline)
+(require-extension readline)
 (current-input-port (make-gnu-readline-port))
 (gnu-history-install-file-manager (string-append (or (getenv "HOME") ".") "/.csi.history"))

chicken/branches/release/match.scm

@@ -123 +123 @@
  (run-time-macros)
  (disable-interrupts)
- (usual-integrations) )
+ (usual-integrations) 
+ (hide every))
 
 (cond-expand 
@@ -133 +134 @@
 
 
+(define (every fn lst)
+  (or (null? lst)
+      (and (fn (car lst)) (every fn (cdr lst)))))
+
+
 ;;; Macros