- Fixed the generated code for a constantant const named v. (whic…

…h confused the Perl parser into parsing it as a version number) (fixes #95)

Example:

	func foo() {
	    const v = 42
	    return v
	}
	say foo()

Special thanks to @catb0t for finding and reporting this issue.

lib/Sidef/Deparse/Perl.pm

@@ -763,7 +763,7 @@ HEADER
             $code = $value;
         }
         elsif ($ref eq 'Sidef::Variable::Const') {
-            my $name  = $obj->{name} . $refaddr;
+            my $name  = "const_$obj->{name}" . $refaddr;
             my $value = '(' . $name . ')';
             if (not exists $obj->{inited}) {
                 $obj->{inited} = 1;

lib/Sidef/Object/Object.pod

@@ -138,6 +138,22 @@ Aliases: I<is_an>, I<kind_of>
 
 =cut
 
+=head2 is_object
+
+Object.is_object() -> I<Obj>
+
+Return the
+
+=cut
+
+=head2 is_typename
+
+Object.is_typename() -> I<Obj>
+
+Return the
+
+=cut
+
 =head2 lazy
 
 Object.lazy() -> I<Obj>

scripts/Tests/const_tests.sf

@@ -47,4 +47,24 @@ do {
     assert_eq(foo(), 43)
 }
 
+do {
+    const v = 42
+    assert_eq(v, 42)
+
+    func foo(n) {
+        const v = n
+    }
+
+    assert_eq(foo(3), 3)
+    assert_eq(foo(4), 4)
+
+    func bar(n) {
+        const v = n
+        return v
+    }
+
+    assert_eq(bar(5), 5)
+    assert_eq(bar(6), 6)
+}
+
 say "** Test passed!"

scripts/Tests/lazy_methods.sf

@@ -79,6 +79,7 @@ assert_eq(Number.methods(4, 5){:add}(), 9)
 
 assert_eq(Number.method(:add)(4, 5), 9)
 assert_eq(Number.method(:add, 4)(5), 9)
+assert_eq(Number.method(:add, 4, 5)(), 9)
 
 assert_eq(4.method(:add)(5), 9)
 assert_eq(4.method(:add, 5)(), 9)