feat: 9.5.9

s/patch.ss

@@ -0,0 +1,33 @@
+;;; patch.ss
+;;; Copyright 1984-2017 Cisco Systems, Inc.
+;;; 
+;;; Licensed under the Apache License, Version 2.0 (the "License");
+;;; you may not use this file except in compliance with the License.
+;;; You may obtain a copy of the License at
+;;; 
+;;; http://www.apache.org/licenses/LICENSE-2.0
+;;; 
+;;; Unless required by applicable law or agreed to in writing, software
+;;; distributed under the License is distributed on an "AS IS" BASIS,
+;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+;;; See the License for the specific language governing permissions and
+;;; limitations under the License.
+
+(printf "loading ~s cross compiler~%" (constant machine-type-name))
+
+; (current-expand (lambda args (apply sc-expand args)))
+; (current-eval (lambda args (apply interpret args)))
+
+(when-feature pthreads
+  (meta-cond
+    [(not (threaded?))
+     ; we must be cross-compiling from nonthreaded to threaded version
+     ; handle thread parameter creation
+     (define-syntax with-mutex
+       (syntax-rules ()
+         [(_ mexp e0 e1 ...) (begin e0 e1 ...)]))
+     (set! make-thread-parameter make-parameter)
+     (set! mutex-acquire (lambda (m) (void)))
+     (set! mutex-release (lambda (m) (void)))
+     (set! $tc-mutex (void))]))
+