Add MIT License (#23)

* Revert "add resume to debug repl"

* Add MIT License

* Update .gitignore

* Replace Travis with Github CI

* Add resume to debug-repl

Author: AlexKnauth

.github/workflows/ci.yml

@@ -0,0 +1,24 @@
+on: [push, pull_request]
+name: CI
+jobs:
+  build:
+    name: "Build on Racket '${{ matrix.racket-version }}' (${{ matrix.racket-variant }})"
+    runs-on: ubuntu-latest
+    strategy:
+      matrix:
+        racket-version: ["stable", "current"]
+        racket-variant: ["BC", "CS"]
+    steps:
+      - uses: actions/checkout@v2
+      - uses: Bogdanp/setup-racket@v0.12
+        with:
+          architecture: x64
+          distribution: full
+          variant: ${{ matrix.racket-variant }}
+          version: ${{ matrix.racket-version }}
+      - name: Installing debug and its dependencies
+        run: raco pkg install --no-docs --auto --link --name debug
+      - name: Compiling debug and building its docs
+        run: raco setup --check-pkg-deps --unused-pkg-deps debug typed
+      - name: Testing debug
+        run: raco test -p debug

.gitignore

@@ -1,3 +1,11 @@
+# Racket-generated files
 compiled/
 doc/
+
+# Editor-generated files
 *~
+\#*
+.\#*
+
+# OS-generated files
+.DS_Store

.travis.yml

@@ -0,0 +1,21 @@
+debug
+
+MIT License
+
+Copyright (c) 2015-2022 Alex Knauth, Suzanne Soy, Matthew Butterick, and Sorawee Porncharoenwase
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

LICENSE.txt

@@ -11,10 +11,7 @@
                      pretty-format
                      ))
 
-(define debug-repl-prompt-tag (make-continuation-prompt-tag 'debug-repl))
-(define debug-repl-abort-handler values)
-
-;; ----------------------------------------------------------------------------
+(define current-debug-repl-escape (make-parameter #f))
 
 (begin-for-syntax
   ;; syntax-find-local-variables : Syntax -> (Listof Id)
@@ -92,19 +89,20 @@
     (old-prompt-read))
   (define (new-eval stx)
     (old-eval (intro stx)))
-  (parameterize ([current-namespace ns]
-                 [current-prompt-read new-prompt-read]
-                 [current-eval new-eval])
-    (call-with-continuation-prompt
-     read-eval-print-loop
-     debug-repl-prompt-tag
-     debug-repl-abort-handler)))
+  (let/ec k
+    (parameterize ([current-namespace ns]
+                   [current-prompt-read new-prompt-read]
+                   [current-eval new-eval]
+                   [current-debug-repl-escape k])
+      (read-eval-print-loop))))
 
 ;; namespace-define-transformer-binding! : Namespace Symbol Any -> Void
 (define (namespace-define-transformer-binding! ns sym val)
   (eval #`(define-syntax #,(datum->syntax #f sym) #,val) ns))
 
 ;; resume : Any ... -> Nothing
 (define (resume . vs)
-  (apply abort-current-continuation debug-repl-prompt-tag vs))
-
+  (define k (current-debug-repl-escape))
+  (unless k
+    (error 'resume "must be called within a debug-repl"))
+  (apply k vs))

debug/repl.rkt

@@ -77,9 +77,5 @@ Then if you call @racket[(f 1 2)], it will create a repl where @racket[x] is
 In one of these repls, you can try evaluating different expressions. If you're
 debugging a higher-order function for example, you can try out the functions
 it accepts or creates with multiple sets of arguments to see how they react.
-
-@defproc[(resume [v any/c] ...) any]{
-  When called inside of a @racket[debug-repl], exits the repl. The call to
-  @racket[debug-repl] returns the arguments to @racket[resume].
-}
 }
+

debug/scribblings/debug.scrbl

@@ -2,6 +2,8 @@
 
 (define collection 'multi)
 
+(define license 'MIT)
+
 ;; Require a version of racket after this commit:
 ;; make `variable-reference->namespace` enable top-level mode
 ;; d1c2daf15b8be048b5cea63d5a1d7206bfc8d43f