cs: repair call-with-immediate-continuation-mark

The default-value expression could get lost, replaced with just #f.

pkgs/base/info.rkt

@@ -12,7 +12,7 @@
 
 (define collection 'multi)
 
-(define version "7.5.0.2")
+(define version "7.5.0.3")
 
 (define deps `("racket-lib"
                ["racket" #:version ,version]))

pkgs/racket-test-core/tests/racket/contmark.rktl

@@ -698,6 +698,7 @@
 
 (test #f call-with-immediate-continuation-mark 'x (lambda (v) v))
 (test 10 call-with-immediate-continuation-mark 'x (lambda (v) v) 10)
+(test 10 'also-ten (call-with-immediate-continuation-mark 'x (lambda (v) v) 10))
 (test 12 'cwicm (with-continuation-mark 'x 12 (call-with-immediate-continuation-mark 'x (lambda (v) v))))
 (test '(#f) 'cwiwcm (with-continuation-mark 'x 12 (list (call-with-immediate-continuation-mark 'x (lambda (v) v)))))
 (test 12 'cwicm (with-continuation-mark 'x 12 

racket/src/cs/rumble/control.ss

@@ -1112,7 +1112,7 @@
     [(_ key-expr proc-expr)
      #'(call-with-immediate-continuation-mark/inline key-expr proc-expr #f)]
     [(_ key-expr (|#%name| _ (lambda (arg) body ...)) default-v-expr)
-     #'(call-with-immediate-continuation-mark/inline key-expr (lambda (arg) body ...) #f)]
+     #'(call-with-immediate-continuation-mark/inline key-expr (lambda (arg) body ...) default-v-expr)]
     [(_ key-expr (lambda (arg) body ...) default-v-expr)
      #'(call-getting-continuation-attachment
         empty-mark-frame

racket/src/racket/src/schvers.h

@@ -16,7 +16,7 @@
 #define MZSCHEME_VERSION_X 7
 #define MZSCHEME_VERSION_Y 5
 #define MZSCHEME_VERSION_Z 0
-#define MZSCHEME_VERSION_W 2
+#define MZSCHEME_VERSION_W 3
 
 /* A level of indirection makes `#` work as needed: */
 #define AS_a_STR_HELPER(x) #x