Skip to content

Commit

Permalink
Expand the allowed continuation values and explain why message argume…
Browse files Browse the repository at this point in the history
…nts default to NIL.
  • Loading branch information
sellout committed Sep 10, 2011
1 parent 8d0a6cb commit 0e86e3e
Showing 1 changed file with 9 additions and 3 deletions.
12 changes: 9 additions & 3 deletions src/kell-calculus/processes.lisp
Expand Up @@ -33,8 +33,14 @@
(defclass message (process)
((name :initarg :name :accessor name :type name)
(argument :initarg :argument :initform nil :type generic-process
:accessor argument)
(continuation :initarg :continuation :initform null :type (or process symbol)
:accessor argument
:documentation
"This defaults to nil rather than null so that we can distinguish
when the argument was omitted, since in some pattern languages an
omitted argument means 'match anything' rather than 'match
null'.")
(continuation :initarg :continuation :initform null
:type (or generic-process symbol)
:accessor continuation)))

(defmethod print-object ((obj message) stream)
Expand All @@ -57,7 +63,7 @@
(defclass kell (process)
((name :initarg :name :accessor name :type name)
(state :initarg :state :initform null :type generic-process :accessor state)
(continuation :initarg :continuation :initform null :type process
(continuation :initarg :continuation :initform null :type generic-process
:accessor continuation)
;; implementation details
(lock :reader lock)
Expand Down

0 comments on commit 0e86e3e

Please sign in to comment.