Permalink
Browse files

adds type hints

  • Loading branch information...
1 parent 2cdcf8c commit 186c5904cb7bb54abbf41a4b6161b0577bf832da @videlalvaro committed Aug 15, 2010
Showing with 6 additions and 5 deletions.
  1. +6 −5 src/closerl/core.clj
View
11 src/closerl/core.clj
@@ -1,6 +1,7 @@
(ns closerl.core
(:import (com.ericsson.otp.erlang
OtpNode
+ OtpMbox
OtpSelf
OtpPeer
OtpConnection
@@ -69,20 +70,20 @@
(defn otp-mbox
"Creates an OtpMbox"
- ([node]
+ ([#^OtpNode node]
(.createMbox node ))
- ([node name]
+ ([#^OtpNode node name]
(.createMbox node name)))
(defn otp-register-name
"Registers the mbox name"
- [mbox name]
+ [#^OtpMbox mbox name]
(.registerName mbox name))
(defn otp-receive
"Receives a message. The process will block while waiting"
- ([mbox] (.receive mbox))
- ([mbox tmo] (.receive mbox tmo)))
+ ([#^OtpMbox mbox] (.receive mbox))
+ ([#^OtpMbox mbox tmo] (.receive mbox tmo)))
;; OtpSelf wrapper
(defn otp-self

0 comments on commit 186c590

Please sign in to comment.