Overview
| Comment: | Added missing 'read' |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
f7d6c436e498a25b4655562bf7c09558 |
| User & Date: | mrwellan on 2014-10-03 11:33:30 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-10-03
| ||
| 12:03 | Fixed typo check-in: 399217ae55 user: icfadm tags: v1.60 | |
| 11:33 | Added missing 'read' check-in: f7d6c436e4 user: mrwellan tags: v1.60 | |
| 11:30 | Added fallback on evaluating CMDINFO to have it work in old areas check-in: 39c561201f user: mrwellan tags: v1.60 | |
Changes
Modified common.scm from [e5d6b1f240] to [f2fb725d32].
| ︙ | ︙ | |||
119 120 121 122 123 124 125 | (define (common:get-megatest-exe) (if (getenv "MT_MEGATEST") (getenv "MT_MEGATEST") "megatest")) (define (common:read-encoded-string instr) (handle-exceptions exn | | | 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 | (define (common:get-megatest-exe) (if (getenv "MT_MEGATEST") (getenv "MT_MEGATEST") "megatest")) (define (common:read-encoded-string instr) (handle-exceptions exn (read (open-input-string (base64:base64-decode instr))) (read (open-input-string (z3:decode-buffer (base64:base64-decode instr)))))) ;;====================================================================== ;; S T A T E S A N D S T A T U S E S ;;====================================================================== (define *common:std-states* |
| ︙ | ︙ |