core: Add current-output-port, open-output-file, set-current-output-port.
[mes.git] / module / mes / posix.mes
index e6d5bd0b6551a6f85f403a014ff7a6105a7bdd56..3482e55dcb4b231b2025afa6ca9722f375f9ce0e 100644 (file)
@@ -23,3 +23,5 @@
 ;;; Code:
 
 (define R_OK 0)
+(define S_IRWXU #o700)
+