369.100

svn: r6127

doc/release-notes/mred/HISTORY

@@ -1,26 +1,10 @@
-Version 369.11
+Version 370, May 2007
-
-Added is-maximized? method to frame% (Windows, Mac OS X)
-
-
-Version 369.10
-
-Improved the disabled appearance of some controls under Mac OS X
-
-
-Version 369.9
-
-Added use-style-background and style-background-used? methods
- to editor-snip%; changes the editor-snip WXME format
-
-
-Version 369.6
 
 WXME file format changed to include a #reader() prefix
-
+Added is-maximized? method to frame% (Windows, Mac OS X)
-
+Improved the disabled appearance of some controls under Mac OS X
-Version 369.5
+Added use-style-background and style-background-used? methods
-
+ to editor-snip%; changes the editor-snip WXME format
 Mac OS X printer-dc% uses scaling specified by the current ps-setup%
 
 ----------------------------------------------------------------------

doc/release-notes/mzscheme/HISTORY

@@ -1,95 +1,70 @@
-Version 369.12
+Version 370, May 2007
-Add custodian boxes
+Memory management:
-
+ Default build uses 3m instead of CGC
-Version 369.11
+ Added custodian boxes and custodian-memory-accounting-available?
-Added reset?, start-, and end-index arguments to get-output-bytes
+ Added initial custodian argument to custodian-require-memory
-Added custodian-memory-accounting-available?
+Exceptions:
-
+ Removed current-exception-handler and initial-exception-handler
-Version 369.10
+ Added uncaught-exception-handler
-Added parameterize*
+ Default error escape handler aborts to default continuation
-Added module-path-index-resolve
+  tag with the void procedure
-Fixed mzc --exe to work with C-implemented extension modules
+ Added call-with-exception-handler
-Added runtime-paths.ss MzLib library to cooperate with mzc --exe
+ Changed read-eval-print-loop and the default load handler to wrap
-
+  each evaluation with a prompt and with #%top-interaction
-Version 369.9
+ Changed top-level begin to insert a prompt around each sub-expression
-Module top-level enforces initial categorization of expressions
+  except the last
- versus other forms
+ Added #%top-interaction and #%expression
-Added procedure-struct-type?
+ Changed make-exn to automatically convert a mutable message string
-Inside MzScheme: XFORM_START_SKIP, etc.
+  to an immutable string
-
+Units:
-Version 369.8
+ New unit system provided by MzLib's "unit.ss"
-Added -p, -P, and -Q command-line options
+Ports and pathnames:
-Changed H-expression parsing to represent angle brackets specially
+ Added prop:input-port and prop:output-port
-Added syntax-local-expand-expression
+ Added support for manipulating filesystem paths that work on 
-MzLib: foreign.ss: Added ptr-add, memmove, memcpy, and memset
+  other platforms
-Inside MzScheme: added scheme_set_type_equality(), based on a patch
+ Added string->path-element and path-element->string
- from Dimitris Vyzovitis
+ Changed path->directory-path, simplify-path, and split-path to include
-
+  a trailing path separator even when the result would be a directory
-Version 369.7
+  path without it
-Added string->path-element and path-element->string
+ Changed simplify-path for Windows paths to replace / with \
-
+ Changed current-directory to apply path->directory-path to given paths
-Version 369.6
+ Added reset?, start-, and end-index arguments to get-output-bytes
-Default load handler enables #reader (even when not reading a module)
+ Added port-closed?
-
+ Added optional argument to tcp-addresses to get port numbers
-Version 369.5
+Syntax and loading:
-print-struct defaults to #t instead of #f
+ Default load handler enables #reader (even when not reading a module)
-Changed make-exn to automatically convert a mutable message string
+ Added module-path-index-resolve
- to an immutable string
+ Added syntax-local-expand-expression
-Added initial custodian argument to custodian-require-memory
+ Changed dyanmic-require to expand requests for exported syntax
-Added an argument to syntax-local-certifier indicating whether the
+  bindings
- generated procedure attaches active or inactive certificates
+ Added an argument to syntax-local-certifier indicating whether the
-
+  generated procedure attaches active or inactive certificates
-Version 369.4
+ Changed macro expansion of bound identifiers so that `local-expand'
-Default build uses 3m instead of CGC
+  works with an empty stop list
-Added 'gc and 'so-suffix flags for system-type
+ Module top-level enforces initial categorization of expressions
-Changed path->directory-path, simplify-path, and split-path to include
+  versus other forms
- a trailing path separator even when the result would be a directory
+ Changed H-expression parsing to represent angle brackets specially
- path without it
+Misc:
-Changed simplify-path for Windows paths to replace / with \
+ Changed print-struct default to #t instead of #f
-Changed current-directory to apply path->directory-path to given paths
+ Added parameterize*
-Added port-closed?
+ Added 'gc and 'so-suffix flags for system-type
-
+ Added vector->values
-Version 369.3
+ Changed char-whitespace? to produce #t for #\u0085
-Adjusted exception-handler calling to propagate any returned value
+ Added -p, -P, and -Q command-line options
- to the previous exception handler
+ Added procedure-struct-type?
-
+ Added system-idle-evt
-Version 369.2
+ Fixed mzc --exe to work with C-implemented extension modules
-Removed current-exception-handler and initial-exception-handler
+MzLib:
-Added uncaught-exception-handler
+ serialize.ss: Path includes the path's convention
-Default error escape handler aborts to default continuation
+ foreign.ss: Added ptr-add, memmove, memcpy, and memset
- tag with the void procedure
+ runtime-paths.ss: Cooperates with mzc --exe
-Added call-with-exception-handler
+Inside MzScheme:
-Changed read-eval-print-loop and the default load handler to wrap
+ Use SCHEME_INPUT_PORTP() instead of SCHEME_INPORTP()
- each evaluation with a prompt and with #%top-interaction
+     SCHEME_OUTPUT_PORTP() instead of SCHEME_OUTPORTP()
-Changed top-level begin to insert a prompt around each sub-expression
+     scheme_input_port_record() instead of cast to Scheme_Input_Port*
- except the last
+     scheme_output_port_record() instead of cast to Scheme_Output_Port*
-Added #%top-interaction and #%expression
+ Added scheme_set_type_equality() with help from Dimitris Vyzovitis
-Added prop:input-port and prop:output-port
+ Added XFORM_START_SKIP, etc.
-Changed char-whitespace? to produce #t for #\u0085
-Inside MzScheme: use 
- SCHEME_INPUT_PORTP() instead of SCHEME_INPORTP()
- SCHEME_OUTPUT_PORTP() instead of SCHEME_OUTPORTP()
- scheme_input_port_record() instead of casting to Scheme_Input_Port*
- scheme_output_port_record() instead of casting to Scheme_Output_Port*
-
-Version 369.1
-Changed dyanmic-require to expand requests for exported syntax
- bindings
-Added vector->values
-MzLib: unit.ss: new unit system
-
-Version 360.2
-Added support for manipulating filesystem paths that work on 
- other platforms
-Added integer-length
-Added optional argument to tcp-addresses to get port numbers
-Added system-idle-evt
-MzLib: serialized path includes the path's convention
-
-Version 360.1
-Changed macro expansion of bound identifiers so that `local-expand'
- works with an empty stop list
-
 
 Version 360, November 2006
 Continuations:

src/mzscheme/src/schminc.h

@@ -13,7 +13,7 @@
 
 #define USE_COMPILED_STARTUP 1
 
-#define EXPECTED_PRIM_COUNT 896
+#define EXPECTED_PRIM_COUNT 897
 
 #ifdef MZSCHEME_SOMETHING_OMITTED
 # undef USE_COMPILED_STARTUP

src/mzscheme/src/schvers.h

@@ -9,6 +9,6 @@
 
 
 #define MZSCHEME_VERSION_MAJOR 369
-#define MZSCHEME_VERSION_MINOR 12
+#define MZSCHEME_VERSION_MINOR 100
 
-#define MZSCHEME_VERSION "369.12" _MZ_SPECIAL_TAG
+#define MZSCHEME_VERSION "369.100" _MZ_SPECIAL_TAG

src/mzscheme/src/thread.c

@@ -321,6 +321,7 @@ static Scheme_Object *custodian_to_list(int argc, Scheme_Object *argv[]);
 static Scheme_Object *current_custodian(int argc, Scheme_Object *argv[]);
 static Scheme_Object *make_custodian_box(int argc, Scheme_Object *argv[]);
 static Scheme_Object *custodian_box_value(int argc, Scheme_Object *argv[]);
+static Scheme_Object *custodian_box_p(int argc, Scheme_Object *argv[]);
 static Scheme_Object *call_as_nested_thread(int argc, Scheme_Object *argv[]);
 
 static Scheme_Object *current_namespace(int argc, Scheme_Object *args[]);
@@ -578,6 +579,11 @@ void scheme_init_thread(Scheme_Env *env)
 						      "custodian-box-value",
 						      1, 1),
 			     env);
+  scheme_add_global_constant("custodian-box?",
+			     scheme_make_folding_prim(custodian_box_p,
+                                                      "custodian-box?",
+                                                      1, 1, 1),
+			     env);
   scheme_add_global_constant("call-in-nested-thread",
 			     scheme_make_prim_w_arity(call_as_nested_thread,
 						      "call-in-nested-thread",
@@ -1741,6 +1747,14 @@ static Scheme_Object *custodian_box_value(int argc, Scheme_Object *argv[])
   return cb->v;
 }
 
+static Scheme_Object *custodian_box_p(int argc, Scheme_Object *argv[])
+{
+  if (SAME_TYPE(SCHEME_TYPE(argv[0]), scheme_cust_box_type))
+    return scheme_true;
+  else
+    return scheme_false;
+}
+
 #ifndef MZ_PRECISE_GC
 void scheme_clean_cust_box_list(void)
 {