-
This commit is contained in:
2
info.rkt
2
info.rkt
@@ -1,7 +1,7 @@
|
|||||||
#lang info
|
#lang info
|
||||||
|
|
||||||
(define pkg-authors '(hnmdijkema))
|
(define pkg-authors '(hnmdijkema))
|
||||||
(define version "0.2.11")
|
(define version "0.2.12")
|
||||||
(define license 'MIT)
|
(define license 'MIT)
|
||||||
(define collection "web-racket")
|
(define collection "web-racket")
|
||||||
(define pkg-desc "web-racket - A Web Based GUI library, based on webui-wire")
|
(define pkg-desc "web-racket - A Web Based GUI library, based on webui-wire")
|
||||||
|
|||||||
@@ -408,8 +408,8 @@
|
|||||||
|
|
||||||
(define (convert-result result)
|
(define (convert-result result)
|
||||||
(let ((m (regexp-match re-generic-result result)))
|
(let ((m (regexp-match re-generic-result result)))
|
||||||
(ww-debug result)
|
(ww-debug (format "convert-result: ~a" result))
|
||||||
(ww-debug m)
|
(ww-debug (format "match: ~a" m))
|
||||||
(if m
|
(if m
|
||||||
(let* ((ok (string=? (list-ref m 1) "OK"))
|
(let* ((ok (string=? (list-ref m 1) "OK"))
|
||||||
(kind (list-ref m 2))
|
(kind (list-ref m 2))
|
||||||
|
|||||||
Reference in New Issue
Block a user