Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

adds type hints

  • Loading branch information...
commit 186c5904cb7bb54abbf41a4b6161b0577bf832da 1 parent 2cdcf8c
Alvaro Videla authored August 15, 2010

Showing 1 changed file with 6 additions and 5 deletions. Show diff stats Hide diff stats

  1. 11  src/closerl/core.clj
11  src/closerl/core.clj
... ...
@@ -1,6 +1,7 @@
1 1
 (ns closerl.core
2 2
   (:import (com.ericsson.otp.erlang
3 3
               OtpNode
  4
+              OtpMbox
4 5
               OtpSelf
5 6
               OtpPeer
6 7
               OtpConnection
@@ -69,20 +70,20 @@
69 70
 
70 71
 (defn otp-mbox
71 72
   "Creates an OtpMbox"
72  
-  ([node]
  73
+  ([#^OtpNode node]
73 74
     (.createMbox node ))
74  
-  ([node name]
  75
+  ([#^OtpNode node name]
75 76
     (.createMbox node name)))
76 77
     
77 78
 (defn otp-register-name
78 79
   "Registers the mbox name"
79  
-  [mbox name]
  80
+  [#^OtpMbox mbox name]
80 81
   (.registerName mbox name))
81 82
   
82 83
 (defn otp-receive
83 84
   "Receives a message. The process will block while waiting"
84  
-  ([mbox] (.receive mbox))
85  
-  ([mbox tmo] (.receive mbox tmo)))
  85
+  ([#^OtpMbox mbox] (.receive mbox))
  86
+  ([#^OtpMbox mbox tmo] (.receive mbox tmo)))
86 87
               
87 88
 ;; OtpSelf wrapper
88 89
 (defn otp-self 

0 notes on commit 186c590

Please sign in to comment.
Something went wrong with that request. Please try again.